Datumseingabe in Textboxen überprüfen
01.07.2016 08:04:42
Chris
ich möchte zwei Datumseingaben in zwei TextBoxen miteinander vergleichen.
Wenn datum2 kleiner als Datum1, dann msgbox. Wenn Datum1=datum2 dann ebenfalls
msgbox.
Es wird jedoch immer nur die erste Bedingung überprüft.
Weiß jmd wo der Fehler liegt?
Bei der Gelegenheit:
Zusätzlich zur Größenüberprüfung soll noch überprüft werden, ob die Eingabe dem Format TT/MM/JJJJ entspricht.
Hilfe wäre nett.
Danke Chris
Sub x()
Dim Datum1 As String
Dim Datum2 As String
Datum1 = UserForm1.TextBox13 'Aktivierungsdatum
Datum2 = UserForm1.TextBox14 'Deaktivierungsdatum
If IsDate(Datum1) = IsDate(Datum2) Then
MsgBox "Aktivierungs- und Deaktivierungsdatum dürfen nicht gleich sein." & vbCrLf & "Bitte _
korrigieren!", vbInformation
Exit Sub
end if
If IsDate(Datum1) > IsDate(Datum2) Then
MsgBox "Das Deaktivierungsdatum darf nicht kleiner" & vbCrLf & "sein als das Aktivierungsdatum. _
Bitte korrigieren!", vbInformation
Exit Sub
End If
End Sub
Anzeige