Excel Tipp 27: Alle Tabellenblätter gleichzeitig einblenden

Jeder von uns kennt das - Wir haben eine große Excel-Tabelle mit mehreren Tabellen-Blättern.

Nachdem die Datei fertig erstellt wurde, blenden wir die Tabellen-Blätter, die wir nicht benötigen für eine bessere Übersicht aus. Dies können zum Beispiel Rohdaten vom Vorjahr, Planung, Forecast, etc. sein.

Auch wenn wir die Datei nun in andere Abteilung an anderen Mitarbeiter versenden und möchten, dass die Datei übersichtlich bleibt, blenden wir diese Tabellen-Blätter aus.

Kurzanleitung Ausblenden

Mehrere Tabellen-Blätter auszublenden ist leicht:

Wir schieben diese alle ans Ende, klicken das erste an, halten die Shift-Taste gedrückt und klicken das letzte Tabellen-Blatt an. Im Anschluss klicken wir auf die rechte Maustaste und wählen hier ausblenden.

Wenn wir mit der Datei allerdings weiterarbeiten und nun die ausgeblendeten Tabellen-Blätter alle wieder einblenden möchten, müssen wir jedes einzelne Tabellen-Blatt anklicken und einblenden.

Dies kann sehr zeitaufwendig und lästig werden, insbesondere dann, wenn es sehr viele Tabellen-Blätter sind.

Mit einem Makro alle Tabellen-Blätter auf einmal einblenden

Hierfür benötigen wir einen Makro-Code:

Sub EinblendenVersteckteBlätter()

' Einblenden Makro

'

' Tastenkombination: Strg+e

'

  Dim Blatt As Worksheet

    For Each Blatt In Sheets

      Blatt.Visible = True

    Next Blatt

End Sub

Bei diesem Code wurde die Tastenkombination "STRG+E" für den Befehl gewählt.

Fügen Sie den Code bei Visual Basic ein und achten Sie darauf, dass Sie die Excel Datei als "xlsm" bzw. Makro Datei abspeichern.

Zusätzlich haben Sie die Möglichkeit, eine Beispiel-Datei mit dem Code hier herunterzuladen: