Hallo zusammen,
ich habe sehr bescheidene VBA Kenntnisse und bräuchte dringend Unterstützung bei folgendem Problem. Ziel ist es, nicht gefilterte Zeilen in einer definierten Range zu löschen.
'Nicht gefilterte Zeilen Löschen
Dim sht As Worksheet
Dim Rng As Range
Dim LastRow As Integer
Dim RowCount As Integer
Set sht = Worksheets(1)
Set Rng = Range("Datenfeld")
RowCount = Rng.Rows.Count
LastRow = Rng.Rows(Rng.Rows.Count).Row
For i = LastRow To LastRow - RowCount Step -1
If Rows(i).Hidden = True Then Rows(i).EntireRow.Delete
Next
End Sub
In der fett markierten Zeile erhalte ich einen Überlauf (6) Fehler. Habt Ihr eine Ahnung, wie ich das Problem lösen kann?