Hallo @all!

Mit dem folgenden Quelltext lasse ich ein Datum eingeben:

Do
datum = InputBox("Welches Datum soll eingefügt werden?(TT.MM.JJJJ)")
If datum = "" Then 'bei drücken des Cancel-Buttons
Exit Sub
End If
Loop While Not datum <> ""

Jetzt möchte ich noch, dass er überprüft, dass das Datum auch im oben angegebenen Format eingegeben wurde. Wie kann man das realisieren?

Danke fürs lesen und antworten!