Hallo,
ich habe folgendes Problem:
Ich habe 3 Comboboxen in einer UserForm zur Auswahl von Tag, Monat und Jahr. Später werden diese mittels CommandButton zusammengesetzt und in eine Zelle geschrieben.
Ich möchte jetzt verhindern, dass das Datum mit dem heutigen oder einem vergangenen Datum genutzt werden kann. Es muss also in der Zukunft liegen, bevor die Zelle befüllt und die nächste UserForm geladen wird.
Hier mein Code:
If CDate(cbx_Sel_1Allgemein_Faelligkeit_Tag.Value & "-" & cbx_Sel_1Allgemein_Faelligkeit_Monat.Value & "-" & cbx_Sel_1Allgemein_Faelligkeit_Jahr.Value) = CDate(Now) Then
MsgBox "Fälligkeitsdatum darf nicht gleich Anfragedatum sein!"
Exit Sub
End If
Tabelle1.Range("Sel_Allgemein_Faelligkeitsdatum").Value = CDate(cbx_Sel_1Allgemein_Faelligkeit_Tag.Value & "-" & cbx_Sel_1Allgemein_Faelligkeit_Monat.Value & "-" & cbx_Sel_1Allgemein_Faelligkeit_Jahr.Value)
Habe als letzten Versuch jetzt mal CDate stehen gelassen, ich hatte auch folgendes probiert was nicht geklappt hat:
If cbx_Sel_1Allgemein_Faelligkeit_Tag.Value = day(Now) AND cbx_Sel_1Allgemein_Faelligkeit_Monat.Value = month(Now) AND cbx_Sel_1Allgemein_Faelligkeit_Jahr.Value) = year(NOW) Then
MsgBox "Fälligkeitsdatum darf nicht gleich Anfragedatum sein!"
Exit Sub
End If
Wie könnte das denn klappen? Danke schonmal für eure Hilfe!
P.S. Der Part mit dem Termin in der Vergangenheit ist nicht enthalten, den baue ich mir dann entsprechend selbst.