TextBox Datum prüfen in UF
Heike
ich mal wieder ;-)
habe folgenden Code, der dieTextBox3 auf die korrekte Eingabe des Datums prüft. Funktioniert auch einwandfrei! Nun erstelle ich aber weitere TextBoxen mit Eingabe des Datums und möchte nicht für jede einen Code erstellen.
Kann mir jemand diesen Code "umbauen"? Wäre wirklich klasse. Vielen Dank!
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox3
If IsDate(.Text) Then
.Text = CDate(.Text)
If .Text Like "##.##.####" Then
Exit Sub
End If
End If
End With
MsgBox "Eingabe nicht korrekt!"
Cancel = True 'springt wieder ins Feld
End Sub
Heike