Werbeanzeigen

Jede zweite oder n-te Zeile eines Tabellenblattes ohne VBA löschen

Sie müssen jede zweite Zeile eines Tabellenblattes oder bestimmten Bereiches löschen? Das geht ganz einfach auch ohne VBA.

So geht´s:

Für diesen Trick brauchen Sie eine Hilfsspalte (leere Spalte), welche Sie in der Tabelle nicht verwenden. Der Trick soll nun an einem kleinen Beispiel demonstriert werden.

170

Abbildung Beispiel für jede zweite Zeile ohne VBA entfernen
Sie sehen eine kleine Liste, welche aus Vereinfachungsgründen, die jeweilige Zeilennummer als Text anzeigt. Die anderen Spalten des Tabellenblattes werden nicht verwendet und können somit als Hilfsspalte verwendet werden.

Markieren Sie die Zelle B1 und erfassen Sie nun die folgende Formel =REST(ZEILE();2)
Kopieren Sie diese Formel nun in den Bereich B1:B16

171

Abbildung: Formel in Hilfsspalte kopieren
Durch die erfasste Funktion wird in der Hilfsspalte nun automatisch jede zweite Zeile als 0 oder 1klassifiziert. Als nächstes muss nun diese Liste gefiltert werden. Klicken Sie mit der Maus in die Liste und aktivieren Sie im Menüband die Befehlsfolge Registerkarte Daten > Befehlsgruppe Sortieren und Filtern > Befehl Filtern. Daraufhin werden automatisch die Filterpfeile in der ersten Zeile der Liste eingeblendet. Filtern Sie nun in der Spalte B den Eintrag 0.

172

Abbildung: Wert 0 in Hilfsspalte filtern
Daraufhin werden nur die Zeilen, welche den Wert 0 in der Hilfsspalte haben (jede zweite Zeile) angezeigt bzw. gefiltert.

173

Abbildung: Nur jede zweite Zeile ist sichtbar

Sie können diese Zeilen nun löschen, indem Sie Zeilennummern 2:16 markieren und anschließend die Zeilen löschen (Registerkarte Start > Befehlsgruppe Zellen > Befehl Löschen)
Entfernen Sie nun bitte wieder den Filter in der Liste. Klicken Sie hierzu einfach auf die Schaltfläche Filtern.

174

Abbildung: Schaltfläche Filtern in der Registerkarte Daten
Sie haben durch diese Technik nun jede zweite Zeile gelöscht ohne VBA.

175

Abbildung: Jede zweite Zeile entfernt
Sie können nun die Hilfsspalte wieder entfernen.

Hinweis:

Analog zu dieser Technik können Sie auch jede dritte, vierte, fünfte oder n-te Zeile einer Tabelle ohne VBA entfernen. Sie müssen hierzu lediglich die Formel in der Hilfsspalte entsprechend anpassen.

=REST(ZEILE();3) – für jede dritte Zeile
=REST(ZEILE();4) – für jede vierte Zeile
=REST(ZEILE();5) – für jede fünfte Zeile
Sie müssen dann lediglich die Hilfsspalte nach dem entsprechenden Werte filtern und dann die angezeigten Zeilen löschen.

Weiterführende Links:

 

Kennen Sie weiterführende Links zu diesem Thema? Schreiben Sie doch Ihre Linkempfehlung als Kommentar unten zu dieser Seite. Ich freue mich auf Ihr Feedback.

 

MerkenMerken

Werbeanzeigen
search previous next tag category expand menu location phone mail time cart zoom edit close