Jede zweite Spalte ausblenden

12. Mai 2010
Martin Althaus Von Martin Althaus, Excel, Office ...

So schalten Sie jede zweite Spalte aus

Sie möchten jede zweite oder jede x-te Spalte 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 ZweiteSpalteAusblenden()
Dim Spalte As Long
Spalte = 1
While Spalte <= Cells.Columns.Count
 Cells(1, Spalte).EntireColumn.Hidden = True
 Spalte = Spalte + 2
Wend
End Sub

Das Makro blendet von Spalte 1 bis zur Maximalspalte (je nach Excel-Version unterschiedlich) jede zweite Spalte in Ihrem aktiven Tabellenblatt aus.

Wenn Sie einen anderen Umfang wünschen, passen die Untergrenze 1 im Befehl Spalte = 1 an und ändern die Obergrenze im Kommando While Zeile <= Cells.Columns.Count. Ersetzen Sie die 1 und die Anweisung Cells.Columns.Count einfach durch die Zahlen Ihrer Wahl, beispielsweise durch 10 und 20, wenn Sie die Spalten von 10 bis 20 ausblenden möchten.

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

Um die ausgeblendeten Spalten wieder einzublenden, ersetzen Sie den Befehl True im Makro durch False (ohne Anführungszeichen) 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"