Datum - Folgethread, was ich herausgefunden habe
Holger
vielleicht interessiert mehr user, daher habe ich mal einen neuen Thread eröffnet.
Ein paar Zeilen weiter unten hatte ich das problem, dass ein String nicht korrekt in
ein Datum umgewandelt werden konnte, so dass es von Excel auch als Datum erkannt wird.
Nachdem mir niemand so recht helfen konnte, da die
Funktion Teile etwas größerem ist, habe ich in einer neuen Mappe folgendes herausgefunden.
So wird es nicht als Datum erkannt:
Sub NICHTKORREKT()
Dim str As String
str = "Okt 10"
Range("A2").Value = str
Range("A2").NumberFormat = "mmm yy"
End Sub
Seltsam, warum das? Klickt man auf die Zelle, sieht man, es wird nicht als Datum erkannt (sonst würde
in der Befehlszeile 01.10.2010 angezeigt).
Benutzt man die DateSerial Funktion, klappt es plötzlich.
Vielleicht haben sich andere darüber auch schon gewundert und die Info ist nützlich.
Gruß
Holger
Sub Soklappts()
Range("A2").Value = DateSerial(2010, 10, 1)
Range("A2").NumberFormat = "mmm yy"
End Sub