wie kann in, wenn eine Reihe von Daten mit dem Format "mmm\ yy" generiert werden, erzwingen, dass nicht in deutsch "Mrz 03", "Apr 03", "Mai 03" usw. dasteht, sondern englisch "Mar 03", "Apr 03", "May 03" OHNE die Einstellungen am Computer manuell ändern zu müssen? Die Datenreihe generiere ich folgendermaßen:
Dim sDat As Date, eDat As Date, tDat As Date
sDat = CDate(Range("i3").Value)
eDat = CDate(Range("k3").Value)
i = 0
Do Until tDat = eDat
tDat = DateAdd("m", i, sDat)
Cells(7, i + 4).Value = tDat
Cells(7, i + 4).Select
Selection.NumberFormat = "mmm\ yy"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
i = i + 1
Loop
nic