im Archiv habe ich nachstehenden Code gefunden, mit dem jede zweite Zeile der Tabelle gelöscht wird.
Ich möchte den Code so abgeändert haben, dass nicht die zweite, vierte, sechste ... Zeile gelöscht wird, sondern die erste, dritte, fünfte ... Zeile der Tabelle.
Im Voraus besten Dank für eure Hilfen.
mfg
Fritz
Sub Del2Row()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -2
Rows(i).Delete
Next i
End Sub