Jede zweite Zeile ausblenden

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.