Makro bricht immer durch Laufzeitfehler 13 ab!
23.07.2003 10:12:05
Chris
habe ein Problem und weiß nicht wie ich es in den Griff bekomme!
Ich habe in einem Formularfeld 3 ComboBoxen Mit Tag, Monat und Jahr
Ich habe jetzt ein Makro geschrieben, welches mir, wenn ich ein Datum eingebe, welches in der Gegenwart liegt anzeigt! Funktioniert alles einwandfrei, wenn ich Wert eintrage!
Wenn ich keinen Wert eintrage und dennoch starte, dann kommt "Laufzeitfehler 13" --> Typen unverträglich!
Kann mir jemand helfen das Makro so abzuändern, dass es auch nicht abbricht, auch wenn ich nichts eintrage!?
Mein Makro:
Private Sub cmdOK_Click()
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
End Sub
Danke für Eure Hilfe
LG Chris