Hi,
da gibt es keinen Befehl dazu. Das musst du in einer Schleife machen. Beispiel: PublicSub prcDeleteEachSecondLine() Dim lngRow AsLong Application.ScreenUpdating = False With Worksheets("Tabelle1") For lngRow = .UsedRange.Row + _ .UsedRange.Rows.Count - 1 To 1 Step -2 .Rows(lngRow).Delete Next EndWith Application.ScreenUpdating = True EndSub