Datumsformat für Textbox (UserForm) festlegen
08.09.2003 12:31:31
Lars
ich bin ganz stolz, weil ich es geschaft habe meine erste UserForm erstellt zu haben. Jetzt kommt der Feinschliff. Die Textbox2 dient zur Eingabe eines Datums. Jetzt habe ich schon im Archiv gesucht, bin aber leider nicht fündig geworden. Das was ich gefunden habe dient Währungsformaten. Diesen Code habe ich versucht in mein Datumsformat umzuwandeln. Klappt leider aber nicht. Den Code habe ich hier einmal eingefügt.
Private Sub TextBox2_AfterUpdate()
TextBox2 = Format(TextBox2, "TT.MM.JJJJ")
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox2) Then
TextBox2 = ""
Cancel = True
End If
End Sub
Wäre lieb, wenn mir jemand sagen könnte, was ich falsch mache.
Beste Grüße
Lars