Fehler abfangen...
27.10.2005 20:33:48
Walter
ich habe eine Textbox und ein SpinButton für Datumsauswahl etc. .
Nun kann man ja in der Textbox auch das Datum Manuell ändern, leider kommt es vor, wenn ich das Jahr z.b. 2005 jetzt 2001 eingeben will und ich dann
001 Schreibe, kommt eine Fehlermeldung.
Sonst funktioniert alles Super.
Frage:
Wie kann ich die fehlerhafte Eingabe abfangen so das nichts passiert oder vielleicht ein Hinweis kommt oder normal das Makro abgebrochen wird?
Hier mein Makro:
Private Sub TextBox39_Change()
Dim dat As Date
On Error Resume Next
If Not txtDate Like "*.*.?*" Then Exit Sub
dat = CDate(TextBox39)
If Err <> 0 Then Exit Sub
spnDate = CLng(dat)
dat = CDate(Worksheets("Kulanzblatt-VK").Range("F11"))
Worksheets("Werkstatt").Range("F11") = CDate(TextBox39)
Label4.Caption = Format(spnDate, "dddd") 'zeigt Tag an
If TextBox39 = "00:00:00" Then Label4.Caption = ""
If dat >= DateValue("01.07.2005") Then
Sheets("Werkstattt").Select
ComboBox4.RowSource = ("BG322:BG332")
ComboBox4.Value = Worksheets("Werkstatt").Range("BG318")
Else
Sheets("Werkstatt").Select
Sheets("Werkstatt").Unprotect ("wwpa")
ComboBox4.RowSource = ("AV322:AV332")
ComboBox4.Value = Worksheets("Werkstatt").Range("AV318")
End If
End Sub
Gruß Walter