Customlists und Excel Versionen

[snb]

Könnte jemand mir bitte erzählen welche Werten herauskommen in Excel 15.0, Excel 16.0, Excel 19.0 ?

Danke im voraus.

Code:

Sub M_snb()
  On Error Resume Next
  For j = 1 To 8
    MsgBox Application.Version & Space(1) & Join(Application.GetCustomListContents(j))
  Next
End Sub

[maninweb]

Hallo,

Code:

16.0 Mon Tue Wed Thu Fri Sat Sun
16.0 Monday Tuesday Wednesday Thursday Friday Saturday Sunday
16.0 Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
16.0 January February March April May June July August September October November December
16.0 Mo Di Mi Do Fr Sa So
16.0 Montag Dienstag Mittwoch Donnerstag Freitag Samstag Sonntag

Gruß

[snb]

Vielen Dank für diese Version.

Stimmt es das Liste 7 und 8 die Deutsche Monatsnamen enthalten ?

[maninweb]

Hallo,

oups, sorry - vorhin beim reinkopieren 2 Zeilen vergessen. Hier nun komplett - 7 & 8 sind Deutsch.

Code:

Item = 1 = 16.0 Mon Tue Wed Thu Fri Sat Sun
Item = 2 = 16.0 Monday Tuesday Wednesday Thursday Friday Saturday Sunday
Item = 3 = 16.0 Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
Item = 4 = 16.0 January February March April May June July August September October November December
Item = 5 = 16.0 Mo Di Mi Do Fr Sa So
Item = 6 = 16.0 Montag Dienstag Mittwoch Donnerstag Freitag Samstag Sonntag
Item = 7 = 16.0 Jan Feb Mrz Apr Mai Jun Jul Aug Sep Okt Nov Dez
Item = 8 = 16.0 Januar Februar März April Mai Juni Juli August September Oktober November Dezember

Gruß