Jede zweite Zeile einer Excel-Tabelle löschen

October 10

Jede zweite Zeile einer Excel-Tabelle löschen

Microsoft Excel ist eine populäre Tabellenkalkulations-Programm, das hilfreiche Tools für die Dateneingabe, Berechnung, grafische Darstellung, Pivot-Tabellen und vieles mehr bietet. Obwohl Excel ein komplexer, voll ausgestattetes Programm ist, geben es nicht Benutzern die Möglichkeit, abwechselnde Zeilen einer Tabelle standardmäßig löschen. Diese Funktionalität hinzuzufügen, müssen Benutzer definieren eine automatisierte Aufgabe ein Makro aufgerufen, dann führen Sie das Makro auf die Arbeitsblatt-Zeilen, die sie ändern möchten.

Anweisungen

1 Öffnen Sie die Excel-Visual Basic-Editor. Mit Ihrer Kalkulationstabelle in Excel öffnen Sie, klicken Sie auf "Extras" aus dem Menü im oberen Bereich des Bildschirms, und wählen Sie dann "Makro" und "Visual Basic-Editor." Wenn Sie Excel 2003 oder älter verwenden, fahren Sie mit dem nächsten Schritt.

Excel 2007-Benutzer werden feststellen, dass der vorherige Befehl in der aktuellen Version von Excel nicht vorhanden ist und keine Makro-editing-Tools standardmäßig angezeigt. Zugriff auf diese Tools aktivieren Sie, indem Sie auf die Office-Schaltfläche in der linken oberen Ecke des Bildschirms und dann klicken auf die Schaltfläche "Excel-Optionen" am unteren Rand des Menüs. Suchen Sie die Überschrift mit der Bezeichnung "Top Optionen für das Arbeiten mit Excel" in dem daraufhin angezeigten Dialogfeld, und aktivieren Sie das Kontrollkästchen neben der Beschriftung "Show Entwicklerregisterkarte in der Multifunktionsleiste". Klicken Sie auf "OK". Wählen Sie die Registerkarte Entwicklertools, und klicken Sie auf "Visual Basic".

2 Makro-Code hinzufügen. Klicken Sie auf "Einfügen" aus dem Menü im oberen Bereich des Microsoft Visual Basic-Editor-Fensters und wählen Sie "Module". Kopieren Sie alle unten aufgeführten Code und fügen Sie ihn in diesem Modul:

Sub Delete_Every_Other_Row()' Variablen dimension.Y = False ' ändern Sie dies auf True, wenn Sie möchten

' delete rows 1, 3, 5, and so on.

Ich = 1Set xRng = Auswahl' Schleife für jede Zeile in der Auswahl.Für xCounter = 1 To xRng.Rows.Count

' If Y is True, then... If Y = True Then ' ...delete an entire row of cells. xRng.Cells(I).EntireRow.Delete ' Otherwise... Else ' ...increment I by one so we can cycle through range. I = I + 1 End If ' If Y is True, make it False; if Y is False, make it True. Y = Not Y

Nächste xCounterEndSub

3 Führen Sie das Makro. Zurück zu Ihrer Tabelle ohne Visual Basic-Editor zu schließen. Markieren Sie die Zeilen für die abwechselnde Zeilen entfernt werden soll. In Excel 2003 und früheren Versionen klicken Sie den Menüpunkt "Extras", dann "Makro", gefolgt von der "Makros"-Option. Wählen Sie in Excel 2007 die Registerkarte Entwicklertools, klicken Sie auf "Makros". Führen Sie das Makro in beiden Versionen, wählen das Makro mit der Bezeichnung "Delete_Every_Other_Row", dann klicken Sie auf "Ausführen". Alle geraden Tabellenzeilen Ihre Kalkulationstabelle löscht.

Tipps & Warnungen

  • Das bereitgestellte Makro löscht alle geraden Zeilen in einer Tabellenkalkulation. Ungeraden Zeilen löschen, indem Sie ändern die "Y = False" Wert in der dritten Zeile des Makros zu "Y = True"