ich versuche seit geraumer Zeit ein Makro zu erstellen welches den Erweitertenfilter anwendet.
Ich möchte Daten in eine Übersicht eintragen und diese dann in einem anderen Arbeitsblatt, nach Datum geflitert, anzuzeigen.
Wenn ich den Filter anwende, funktioniert dies auch einwandfrei.
Erstelle ich dafür dann ein Makro, werden die Daten nicht mehr gefiltert übertragen sondern nur die Überschriften.
Das Makro sieht im VBA wie folgt aus.
Sub JanuarTest()
' JanuarTest Makro
' Tastenkombination: Strg+a
Sheets("Januar").Select
Range("A3").Select
Sheets("Übersicht").Range("A3:G25").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("I1:J2"), CopyToRange:=Range("A3"), Unique:=False
End Sub
Hier noch die Tabelle als Beispiel.https://www.herber.de/bbs/user/130016.xlsm
Kann mir jmd. helfen und mir sagen wo mein Fehler liegt?
Vielen Dank vorab & ein schönes Wochenende
Grüße
Oli