Habe da ein kleines problemchen!!
Wenn ich in TextBox48 kein Datum eingebe und auf Enter drücke zur TextBox49 kommt ein Debugfehler.
Gebe ich ein Datum ein ist alles i.O.
Nur wenn kein Datum eingegeben wird kommt der Fehler.
Private Sub TextBox48_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Prüfen, ob Datum in Textbox48 eingegeben wurde :
If Not IsDate(TextBox48) And Trim(TextBox48) "" Then
MsgBox "Bitte Datum eingeben"
Cancel = True 'Cursor weiterhin in Textbox48 belassen
ElseIf IsDate(TextBox48) Then
If CDate(TextBox47) > CDate(TextBox48) Then
MsgBox "Datum muss grösser sein!"
Cancel = True 'Cursor weiterhin in Textbox48 belassen
End If
End If
End Sub
Private Sub TextBox49_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Prüfen, ob Datum in Textbox49 eingegeben wurde :
If Not IsDate(TextBox49) And Trim(TextBox49) "" Then
MsgBox "Bitte Datum eingeben"
Cancel = True 'Cursor weiterhin in Textbox49 belassen
End If
End Sub
Seid Ihr so lieb und schaut Euch diesen Code mal an? Vieleich übersehe ich etwas!
Gruß
Sandra