Inhalt textbox mit Datum vergleichen
30.06.2007 14:20:00
Peter
in meiner Textbox "txtfaellig_zum" wird kontrolliert ob ein Datum im vorgeschriebenen Format eingegeben wurde.
Mir fehlt noch die Kontrolle, dass das Datum >= dem heutigen Datum sein soll.
In meinem Code sieht man meinen Versuch, funktioniert aber nicht.
Kann mir jemand helfen?
Danke im Voraus
Grüße aus Berlin
Mein Code
Private Sub txtfaellig_zum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txtfaellig_zum "" Then
If Len(txtfaellig_zum) 6 And InStr(1, txtfaellig_zum, ".") 3 Then
MsgBox "Geben Sie ein gültiges Datum im Format dd.mm.yyyy ein"
txtfaellig_zum = ""
Cancel = True
End If
End If
End If
End Sub
Anzeige