Fehlermeldung bei Input-Box
Juergen
Ich möchte bestimmte Daten aus einer Liste filtern, in der ich das Datum per
Autofilter über zwei Input-Boxen eingrenze.
Das Makro funktioniert soweit, wenn ich an der Input-Box den Button "Abbrechen"
drücke, erhalte ich die Fehlermeldung "Laufzeitfehler 13-Typen unverträglich".
Wie kann ich diese Meldung unterdrücken bzw. mit "Exit Sub" das Makro beenden?
Hier mein Makro:
Sub Datumabfrage()
Dim datA As Long, datB As Long
datA = CLng(DateValue(InputBox("Anfangsdatum")))
datB = CLng(DateValue(InputBox("Enddatum")))
Selection.AutoFilter Field:=10, Criteria1:=">=" & datA, Operator:=xlAnd, Criteria2:="<=" & datB
End Sub
Anzeige