Supportnet / Forum / Tabellenkalkulation
Zeilen löschen in Excel
Frage
Hallo,
ich habe eine Tabelle mit Meßdatenerfassung, die 8.645 Zeilen enthält. Um die Tabelle zu verkleinern möchte ich jede 2. bis 6. Zeile entfernen und habe keine Ahnung wie ich das machen soll...
Danke im Voraus...
Michael
Antwort 1 von rainberg
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
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
Antwort 2 von micico
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
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
Antwort 3 von rainberg
Hallo Michael,
probier mal das
Gruß
Rainer
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