Alle herausgefilterten Zeilen löschen
10.03.2020 10:28:39
before
hoffe ihr könnt mir nochmals helfen.
Und zwar möchte ich alle Zeilen in einer Tabelle die nach einer Filterung angezeigt werden löschen.
Hier ist mein Ansatz:
Sub AutofilterLoeschen()
Sheets("Tabelle1").Select
If ActiveSheet.FilterMode Then
With ActiveSheet.AutoFilter.Range.Offset(1)
.Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1).EntireRow.Delete _
shift:=xlUp
End With
End If
End Sub
Das funktioniert auch soweit. Wenn ich diesen Befehl jedoch in einem anderem
Sub unterbringen bzw auf eine andere Tabelle beziehen will kommt die Fehlermeldung " _
Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht festgelegt".
Markiert wird die Zeile "With ActiveSheet.AutoFilter.Range.Offset(1)".
Kann mir da jemand weiterhelfen?