Jede zweite Zeile ausblenden

19. November 2008
Martin Althaus Von Martin Althaus, Excel, Office ...

So schalten Sie jede zweite Zeile per Makro aus

Sie möchten jede zweite oder jede x-te Zeile in einer Tabelle unsichtbar machen? Das können Sie über den Befehl "Ausblenden" erledigen. Wenn Sie das aber für eine Vielzahl von Zeilen durchführen möchten, wird es mühsam.

Ein Makro nimmt Ihnen die Arbeit ab. Hier ist der Programmcode:

Sub ZweiteZeileAusblenden()
Dim Zeile As Long
Zeile = 1
While Zeile < 1000
 Cells(Zeile, 1).EntireRow.Hidden = True
 Zeile = Zeile + 2
Wend
End Sub

Das Makro blendet von Zeile 1 bis Zeile 1000 jede zweite Zeile in Ihrem aktiven Tabellenblatt aus. Wenn Sie einen anderen Umfang wünschen, passen die Untergrenze 1 im Befehl Zeile = 1 an und ändern die Obergrenze 1000 im Kommando While Zeile < 1000. Ersetzen Sie die 1 und die 1000 einfach durch die Zahlen Ihrer Wahl.

Falls Sie nicht jede zweite Zeile ausblenden möchten, können Sie auch einen anderen Wert für 2 in das Kommando Zeile = Zeile + 2 eintragen. Ein Wert von 4 blendet nur jede vierte Zeile aus, eine Zahl von 10 jede zehnte Zeile usw.

Um die ausgeblendeten Zeilen wieder einzublenden, ersetzen Sie den Befehl True im Makro durch False und starten das Makro erneut.

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"