If Abfrage bei Textbox mit Datum
12.03.2009 18:58:00
Sandra
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
Anzeige