Laufzeitfehler 1004 - Autofilter
Fiodaria
Hallo,
ich habe eine Folge von Aktionen per Makro aufgezeichnet,
In der Spalte B stehen unterschiedliche Werte, von denen ich nur das Datum des aktuellen Monats bestehen lassen will, der Rest wird entfernt. Danach soll wieder alles in der Spalte B angezeigt werden, womit dann die Datei danach weiter bearbeitet werden soll.
Während ich das Makro aufzeichne, wird alles korrekt ausgeführt.
Nur wenn ich das Makro danach teste, kommt der Laufzeitfehler.
Da ich keine VBA Kenntnisse weiter habe, hoffe ich auf Hilfe.
Vielen Dank
LG Fio
das VBA Script sieht so aus:
Sub Spalte_B()
'
' Spalte_B Makro
'
Range("B3").Select
ActiveSheet.Range("$A$1:$N$18000").AutoFilter Field:=2, Criteria1:=Array( _
"08.04.2024", "119 Frühstück Speisen Vectron (Speisen)", _
"120 Frühstück Getränke Vectron (Getränke)", "121 Bar Speisen Vectron (Speisen)" _
, "122 Bar Getränke Vectron (Getränke)", _
"123 Restaurant Speisen Vectron (Speisen)", _
"124 Restaurant Getränke Vectron (Getränke)", _
"125 Mitarbeiterverkauf Getränke (Getränke)", "128 Pfand (Getränke)", _
"465 Auslagen (Extras)"), Operator:=xlFilterValues, Criteria2:=Array(0, _
"1/0/1900")
Range("B3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
ActiveSheet.Range("$A$1:$N$18000").AutoFilter Field:=2
End Sub
https://www.herber.de/bbs/user/168647.xlsx