Das folgende nützliche Makro blendet in einer Arbeitsmappe alle versteckten Tabellen ein. Standardmäßig können versteckte Tabellen nur einzeln über den Menübefehl Format → Blatt → Einblenden wieder sichtbar gemacht werden – eine recht langwierige Geschichte …
Sub AlleVerstecktenTabellenEinblenden()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
Blatt.Visible = True
Next Blatt
End Sub
In einer Schleife werden alle Tabellen der aktiven Arbeitsmappe durchlaufen. Innerhalb der Schleife werden die einzelnen Tabellen eingeblendet, indem Sie die Eigenschaft Visible auf den Wert True setzen.
Das ist nur ein Ausschnitt aus dem Produkt Controlling Office. Sie wollen mehr?
Jetzt kostenlos 4 Wochen testen
Anmelden und Beitrag in meinem Produkt lesen