Sorry, daß ich die Frage nochmals stelle
Wenn ich in Textbox48 nichts eingebe komme ich leider trotzdem weiter. Das soll natürlich verhindert werden.
Kann mir jemand helfen?
Private Sub TextBox47_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Trim(TextBox47) "" Then
If Not IsDate(TextBox47) Then
MsgBox "Sie müssen ein Datum eingeben"
Cancel = True
End If
Else
MsgBox "eine Eingabe fehlt"
Cancel = True
End If
End Sub
Private Sub TextBox48_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Trim(TextBox48) "" Then
If Not IsDate(TextBox48) Then
MsgBox "Sie müssen ein Datum eingeben."
Cancel = True
'Else
'MsgBox "Eine Eingabe fehlt"
Cancel = True
ElseIf IsDate(TextBox48) Then
If DateValue(TextBox47) > DateValue(TextBox48) Then
MsgBox "Datum muss grösser sein!"
Cancel = True 'Cursor weiterhin in Textbox48 belassen
End If
End If
End If
End Sub
Gruß
Sandra