Hallo Michael,

füge vor Deinen Daten eine Hilfsspalte ein, schreibe in A1 folgende Formel und kopiere sie nach unten bis ans Ende Deiner Daten.

=WENN(REST(ZEILE();6)=1;1;0)

Lege jetzt den Autofilter über alle Daten-Spalten und filtere Spalte A nach den Wert 0 (Null).

Jetzt löschst Du alle Zeilen, die der Filter ausgibt und die Hilfsspalte.

Teste aber nicht an der Originaldatei oder erstelle vorher eine Sicherheitskopie.

Gruß
Rainer

Hallo Rainder,
danke für Deine prompte Antwort. Werde ich gleich mal ausprobieren. Gibt es dafür auch ein Makro??? Ich habe nämlich die oben beschriebene Tabelle gleich 60 fach und möchte alle daraufhin ändern.

Gruß Michael

Hallo Michael,

probier mal das

Option Explicit

Sub Zeilen_loeschen()
   Dim intI As Integer
   Application.ScreenUpdating = False
   For intI = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
      If Cells(intI, 1).Row Mod 6 <> 1 Then Rows(intI).Delete Shift:=xlUp
   Next
   Application.ScreenUpdating = True
End Sub

Gruß
Rainer