Datum Überprüfen
13.11.2015 07:05:10
Peter
Wieder einmal benötige ich Eure Hilfe.
Problem:
In einer UF ist der Textbox5 folgender Code hinterlegt
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox5 = "" Then Exit Sub
If Not IsDate(TextBox5) Then
MsgBox "Bitte ein korrektes Datum in VK-Datum eingeben", vbExclamation, "Meldung"
TextBox5 = ""
End If
End Sub
Dadurch soll überprüft werden ob ein korrektes Datum eingetragen wurde.
Nun ist es so, dass wenn ich z.B. 02.13.2015 eingeben, wird das so akzeptiert obwohl es kein Monat 13 gibt.
Meine frage ist:
wie kann ich überprüfen ob auch ein korrekter Monat oder auch Tag (z.B 33.) eingetragen wurde.
Für Eure Hilfe bereits im Voraus vielen Dank.
Viele Grüße
Peter (hpo)