Hallo Atilla,

Vielen Dank für Deine Antwort. Ich kriegs noch nicht hin, und habe (mit Deiner Hilfe) bis jetzt folgendes:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Me.TextBox1 <> "" Then
If IsDate (TextBox1.Text) And (TextBox1.Value) <= Date Then ' ich gehe davon aus, dass Date das heutige Datum
' ist
TextBox1.Text = Format(TextBox1, "DD.MM.YY")
Else
MsgBox "Ungültiges Datum!", vbCritical
TextBox1.Value = "" ' weil ja falsch eingegeben wurde, soll der
' Inhalt wieder verschwinden

End If
End If
End Sub


Im Ergebnis bekomme ich jetzt bei jeder Datumseingabe meine MsgBox. Ich habe zwei Fragen:

Was bedeutet bitte das "Me." in Me.TextBox1 ?

und

Wo bitte liegt der Fehler ?

Vielen Dank !

nanes