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
Vielen Dank für diese Version.
Stimmt es das Liste 7 und 8 die Deutsche Monatsnamen enthalten ?
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ß