VBA - Filter Kriterium
18.01.2024 10:39:43
Velo
ich will im folgendem Code, bestimmte Zeilen aus Tabelle1 in die aktive Tabelle kopieren (Bedingungen sind in Spalte B und M), leider bekomme ich beim Ausführen den Laufzeitfehler 1004: "Die AutoFilter-Methode des Range Objektes konnte nicht ausgeführt werden".
Sub BSP()
Dim Aktiv As Worksheet
Set Aktiv = ActiveSheet
Worksheets("Tabelle1").Range("B1:M1").Copy _
Destination:=Aktiv.Range("a2:L2") 'Überschrift aus "Tabelle1" kopieren
Dim Inhalt As String 'Bereich aus dem kopiert wird
Inhalt = "B2:M1048576"
Dim Ziel As String 'Ziel Bereich
Ziel = "A3:L1048576"
Dim rng As Range
Set rng = Worksheets("Tabelle1").Range(Inhalt)
rng.AutoFilter Field:=1, Criteria1:="Nein" 'Filtern nach "Nein"
rng.AutoFilter Field:=12, Criteria1:="Ja" 'Filtern nach "Ja"
rng.Copy Destination:=Aktiv.Range(Ziel)
Aktiv.Columns("A:K").EntireColumn.AutoFit 'formatieren
rng.AutoFilter 'Filter ausschalten
End Sub
Der Fehler wird im Debugger bei folgender Zeile angezeigt:
rng.AutoFilter Field:=1, Criteria1:="Nein" 'Filtern nach "Nein"Woran kann das liegen? Ist die Methode mit AutoFilter überhaupt richtig angewendet?
Bin leider in VBA nicht ganz so begabt und freue mich auf jede Hilfe :)
Danke schonmal im Voraus und Grüße
Velo