hab folgendes problem ich möchte gerne über ein Makro das alle Zeilen bis auf die jeweils 5te Zeile gelöscht werden z.b. soll am schluss nur noch die erste die 6te 11te Zeile usw. stehenbleiben. Kann mir da jemand helfen?
Gruss
Sub Löschen()
Dim lz As Long, i As Long
lz = Range("A65536").End(xlUp).Row 'letzte Zeile Spalte A ermitteln
For i = lz To 1 Step -1
If (i - 1) Mod 5 <> 0 Then
Rows(i).Delete
End If
Next i
End Sub