So löschen Sie jede zweite oder jede N-te Zeile in Excel

Michael Brown

26-06-2023 Excel
  • Teile Das
Michael Brown

In diesem kurzen Tutorial erfahren Sie, wie Sie jede zweite Zeile in Excel durch Filtern oder mit VBA-Code löschen können. Sie lernen auch, wie Sie jede dritte, vierte oder jede andere N-te Zeile entfernen können.

Es gibt viele Situationen, in denen Sie alternative Zeilen in Excel-Arbeitsblättern löschen müssen, z. B. wenn Sie Daten für gerade Wochen (Zeilen 2, 4, 6, 8 usw.) behalten und alle ungeraden Wochen (Zeilen 3, 5, 7 usw.) in ein anderes Blatt verschieben möchten.

Im Allgemeinen läuft das Löschen jeder zweiten Zeile in Excel darauf hinaus, alternative Zeilen zu markieren. Sobald die Zeilen markiert sind, kann ein einzelner Strich auf der Schaltfläche Löschen Im weiteren Verlauf dieses Artikels lernen Sie einige Techniken kennen, mit denen Sie schnell jede zweite oder jede n-te Zeile in Excel auswählen und löschen können.

    Wie man jede zweite Zeile in Excel durch Filtern löscht

    Eine gängige Methode, um alle anderen Zeilen in Excel zu löschen, ist die folgende: Sie filtern zunächst die alternativen Zeilen, markieren sie und löschen sie dann alle auf einmal:

    1. Geben Sie in einer leeren Spalte neben Ihren ursprünglichen Daten eine Folge von Nullen und Einsen ein. Sie können dies schnell tun, indem Sie in die erste Zelle eine 0 und in die zweite Zelle eine 1 eingeben, dann die ersten beiden Zellen kopieren und sie in der Spalte bis zur letzten Zelle mit Daten einfügen.

      Alternativ können Sie auch diese Formel verwenden:

      =MOD(ROW(),2)

      Die Logik der Formel ist sehr einfach: Die Funktion ROW gibt die aktuelle Zeilennummer zurück, die Funktion MOD dividiert sie durch 2 und gibt den Rest auf die ganze Zahl gerundet zurück.

      Als Ergebnis haben Sie 0 in allen geraden Zeilen (weil sie gleichmäßig ohne Rest durch 2 geteilt werden) und 1 in allen ungeraden Zeilen:

    2. Je nachdem, ob Sie gerade oder ungerade Zeilen löschen wollen, filtern Sie Einsen oder Nullen heraus.

      Markieren Sie dazu eine beliebige Zelle in Ihrer Hilfsspalte, gehen Sie auf die Seite Daten tab> Sortieren und Filtern Gruppe und klicken Sie auf die Schaltfläche Filter Die Dropdown-Filterpfeile werden in allen Kopfzellen angezeigt. Klicken Sie auf die Pfeilschaltfläche in der Spalte Helfer und markieren Sie eines der Kästchen:

      • 0, um gerade Zeilen zu löschen
      • 1, um ungerade Zeilen zu löschen

      In diesem Beispiel wollen wir die Zeilen mit "0"-Werten entfernen, also filtern wir sie:

    3. Da nun alle "1"-Zeilen ausgeblendet sind, markieren Sie alle sichtbaren "0"-Zeilen, klicken Sie mit der rechten Maustaste auf die Auswahl und dann auf Zeile löschen :

    4. Nach dem obigen Schritt haben Sie eine leere Tabelle, aber keine Sorge, die "1"-Zeilen sind immer noch da. Um sie wieder sichtbar zu machen, entfernen Sie einfach den Autofilter, indem Sie auf das Filter Taste erneut:

    5. Die Formel in Spalte C wird für die verbleibenden Zeilen neu berechnet, aber Sie brauchen sie nicht mehr. Sie können die Hilfsspalte jetzt gefahrlos löschen:

    Das Ergebnis ist, dass nur noch die geraden Wochen in unserem Arbeitsblatt vorhanden sind, die ungeraden Wochen sind weg!

    Tipp: Wenn Sie jede zweite Zeile an eine andere Stelle verschieben möchten, anstatt sie ganz zu löschen, kopieren Sie zuerst die gefilterten Zeilen und fügen Sie sie an einer neuen Stelle ein, und löschen Sie dann die gefilterten Zeilen.

    So löschen Sie alternative Zeilen in Excel mit VBA

    Wenn Sie nicht bereit sind, Ihre Zeit mit einer trivialen Aufgabe wie dem Löschen jeder zweiten Zeile in Ihren Excel-Arbeitsblättern zu verschwenden, kann das folgende VBA-Makro den Prozess für Sie automatisieren:

    Sub Delete_Alternate_Rows_Excel() Dim SourceRange As Range Set SourceRange = Application.Selection Set SourceRange = Application.InputBox( "Range:" , "Select the range" , SourceRange.Address, Type :=8) If SourceRange.Rows.Count>= 2 Then Dim FirstCell As Range Dim RowIndex As Integer Application.ScreenUpdating = False For RowIndex = SourceRange.Rows.Count - (SourceRange.Rows.Count Mod 2) To 1Step -2 Set FirstCell = SourceRange.Cells(RowIndex, 1) FirstCell.EntireRow.Delete Next Application.ScreenUpdating = True End If End Sub

    Wie man jede zweite Zeile in Excel mit dem Makro löscht

    Fügen Sie das Makro wie gewohnt über den Visual Basic Editor in Ihr Arbeitsblatt ein:

    1. Drücken Sie Alt + F11, um das Fenster Visual Basic für Anwendungen zu öffnen.
    2. Klicken Sie in der oberen Menüleiste auf einfügen. > Modul und fügen Sie das obige Makro in das Feld Modul
    3. Drücken Sie die Taste F5, um das Makro auszuführen.
    4. Ein Dialogfeld wird angezeigt, in dem Sie aufgefordert werden, einen Bereich auszuwählen. Wählen Sie Ihre Tabelle aus und klicken Sie auf OK:

    Jede andere Zeile im ausgewählten Bereich wird gelöscht:

    Wie man jede N-te Zeile in Excel löscht

    Für diese Aufgabe werden wir die Filtertechnik, die wir zum Entfernen jeder zweiten Zeile verwendet haben, erweitern. Der Unterschied liegt in der Formel, auf der die Filterung basiert:

    MOD(ROW()- m , n )

    Wo:

    • m ist die Zeilennummer der ersten Zelle mit Daten minus 1
    • n ist die N-te Zeile, die Sie löschen möchten

    Angenommen, Ihre Daten beginnen in Zeile 2 und Sie möchten jede 3. Zeile löschen. In Ihrer Formel bedeutet das n gleich 3 ist, und m ist gleich 1 (Zeile 2 minus 1):

    =MOD(ZEILE() - 1, 3)

    Wenn unsere Daten in Zeile 3 beginnen, dann m wäre gleich 2 (Zeile 3 minus 1) usw. Diese Korrektur ist erforderlich, um die Zeilen, beginnend mit der Nummer 1, fortlaufend zu nummerieren.

    Die Formel teilt eine relative Zeilennummer durch 3 und gibt den Rest nach der Division zurück. In unserem Fall ergibt sie für jede dritte Zeile Null, da jede dritte Zahl ohne Rest durch 3 geteilt wird (3,6,9 usw.):

    Und nun führen Sie die bereits bekannten Schritte aus, um "0"-Zeilen zu filtern:

    1. Markieren Sie eine beliebige Zelle in Ihrer Tabelle und klicken Sie auf die Schaltfläche Filter auf der Schaltfläche Daten
    2. Filtern Sie die Spalte "Helfer" so, dass nur "0"-Werte angezeigt werden.
    3. Markieren Sie alle sichtbaren "0"-Zeilen, klicken Sie mit der rechten Maustaste und wählen Sie Zeile löschen aus dem Kontextmenü.
    4. Entfernen Sie den Filter und löschen Sie die Spalte Helper.

    Auf ähnliche Weise können Sie jede 4., 5. oder jede andere N-te Zeile in Excel löschen.

    Tipp: Wenn Sie Zeilen mit irrelevanten Daten entfernen müssen, hilft Ihnen die folgende Anleitung weiter: Wie man Zeilen anhand von Zellwerten löscht.

    Ich danke Ihnen für die Lektüre und hoffe, Sie nächste Woche wieder in unserem Blog begrüßen zu dürfen.

    Vorherigen Post Excel-Verweis auf ein anderes Blatt oder eine andere Arbeitsmappe (externer Verweis)
    Nächster Beitrag Berechnung der Varianz in Excel - Stichprobe & Probe; Formel für die Varianz der Grundgesamtheit

    Michael Brown ist ein begeisterter Technologie-Enthusiast mit einer Leidenschaft für die Vereinfachung komplexer Prozesse mithilfe von Softwaretools. Mit mehr als einem Jahrzehnt Erfahrung in der Technologiebranche hat er seine Fähigkeiten in Microsoft Excel und Outlook sowie Google Sheets und Docs verfeinert. Michaels Blog widmet sich dem Teilen seines Wissens und seiner Expertise mit anderen und bietet leicht verständliche Tipps und Tutorials zur Verbesserung von Produktivität und Effizienz. Egal, ob Sie ein erfahrener Profi oder ein Anfänger sind, Michaels Blog bietet wertvolle Einblicke und praktische Ratschläge, wie Sie diese wichtigen Softwaretools optimal nutzen können.