steh vor nem komischen Problem, wenn ich das Makro durchlaufen lasse löscht er mir komischerweise nicht einmal 1/3 aller Zeilen.
Ne Idee?
lastRowA = Range("A" & Rows.Count).End(xlUp).Row
Selection.AutoFilter Field:=9, Criteria1:="kleiner" & TextD2
Dim i As Long
For i = lastRowA To 59 Step -1
If Rows(i).EntireRow.Hidden = False Then
Rows(i).Delete
End If
Next i
Wäre total nett.
Grüße