Problem mit Datum aus UF-Textbox
Jonathan
ich bräuchte mal wieder eure Hilfe.
In einer UserForm befindet sich eine Textbox. In diese Textbox wird ein Datum eingegeben (MMMM YYYY)
Dieses Datum wird dann in die Zelle P1 in einem Sheet übertragen.
Das Format der Zelle P1 ist als Datum eingestellt (MMM. JJ)
Das Datum wird auch korrekt in die Zelle P1 geschrieben (d.h. gebe ich in der Textbox "Dezember 2009" ein so erscheint in Zelle P1 auch "Dez. 09"), der Eintrag wird aber von Excel nicht als Datum erkannt. Erst nachdem ein Doppelklick auf die Zelle gemacht wurde erkennt Excel es als Datum an.
Gleiches gilt, wenn ich das Datum in der Textbox als dd.mm.yyyy formatiere und auch das Format der Zelle P1 auf TT.MM.JJJJ ändere. Auch hier erkennt Excel das Datum erst nach einem Doppelklick auf die entsprechende Zelle.
Was kann ich hier tun?
Der Code für die Übernahme des Datums in die Zelle lautet:
Private Sub OK_Click()
Worksheets("Data").Range("P1").Value = Format(CDate(tbxdate.Value), "mmm yy")
Unload Me
End Sub
Vielen Dank für eure Hilfe.
Gruß
Jonathan
Anzeige