Habe gestern gefragt, wie ich ein Makro erstellen kann, welches mir das dargestellte Datum meiner 3 ComboBoxen (Eine für Tag, Monat, und Jahr) mit dem aktuellen Datum vergleichen!
Liegt das eingegebene Datum hinter dem aktuellen Datum zurück, dann soll eine Fehleranzeige ausgegeben werden.
Das Makro ist folgendes:
Dim datum As Date
datum = DateSerial(CInt(ComboBox3), ComboBox2.ListIndex + 1, CInt(ComboBox1))
If datum > Date Then
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
MsgBox "Auftragsdatum liegt in der Zukunft"
ComboBox1.SetFocus
Exit Sub
End If
Meine Frage jetzt:
Wie müsste ich mein Makro verändern, damit ich sage, dass das eingegebene Datum vor dem Datum liegen soll, welches in den ComboBoxen (4,5 und 6) erzeugt wird!
Wäre klasse, wenn jemand eine Idee dazu hätte!
LG Chris