der user soll die möglichkeit haben den vorgang abzubrechen leider läuft das makro weiter und dann taucht ein fehler auf.was mach ich falsch.
anbei der code:
Dim DatAnfang As String
Dim DatEnde As String
DatAnfang = InputBox(prompt:="Datum eingeben, Beispiel: 13.06.2004!")
DatEnde = InputBox(prompt:="Datum ende eingeben, Beispiel: 13.07.2004!")
If DatAnfang = "" Then Exit Sub '?
If DatEnde = "" Then Exit Sub '?
Columns("C").Select
'ab hier wird der fehler aangezeigt
Selection.AutoFilter Field:=3, Criteria1:=">=" & CDbl(DateValue(DatAnfang)), _
Operator:=xlAnd, Criteria2:=" Selection.AutoFilter Field:=13, Criteria1:=ComboBox2.Value
Selection.AutoFilter Field:=12, Criteria1:="offen"
danke achim h.