@Gerd
Heike
doch noch eine Frage - sorry!!!
In "unserem" Code MUSS zwingend ein Datum eingetragen werden, in der Praxis ist es aber so, dass entweder kein Datum eingetragen wird und wenn doch, dann muss es ein korrektes Format (ist ja bisher so gelöst) haben.
Function Check_Datum(Tb As MSForms.TextBox) As Boolean
If IsDate(Tb.Text) Then
Tb.Text = CDate(Tb.Text)
If Tb.Text Like "##.##.####" Then Exit Function
End If
MsgBox "Eingabe nicht korrekt!"
Check_Datum = True 'springt wieder ins Feld
Tb.SelStart = 0
Tb.SelLength = Len(Tb.Text)
End Function
Vielen Dank
Gruß
Heike
Anzeige