Versteckte Excel-Tabellenblätter auflisten

So erzeugen Sie eine Liste der verborgenen Tabellen per VBA

Blätter einer Arbeitsmappe können Sie über das Kommando "Format – Blatt – Ausblenden" unsichtbar machen. Dann ist es weiterhin möglich, auf die Tabelleninhalte per Formel zuzugreifen, sichtbar ist die Tabelle aber nicht mehr.

Falls Sie eine Aufstellung aller verborgenen Tabellenblätter in der aktiven Arbeitsmappe benötigen, können Sie das folgende Makro einsetzen:

Sub ListeVersteckteTabellenAuf()
Dim Tabelle As Worksheet, NeueTabelle As Worksheet
Dim AktuelleMappe As Workbook
Dim i As Integer
Set AktuelleMappe = ActiveWorkbook
Set NeueTabelle = Workbooks.Add.Sheets(1)
For Each Tabelle In AktuelleMappe.Worksheets
 If Tabelle.Visible = False Then
   i = i + 1
   NeueTabelle.Cells(i, 1).Value = Tabelle.Name
  End If
Next Tabelle
End Sub

Das Makro durchläuft alle Tabellenblätter in einer Schleife und prüft die Eigenschaft Visible. Wenn Sie nicht erfüllt ist, handelt es sich um ein verstecktes Tabellenblatt. Dann wird der Name des Blatts in die Liste übertragen.

Die Namen aller verborgenen Tabellenblätter werden durch das Makro auf diese Weise in einer Tabelle in einer neuen Arbeitsmappe aufgelistet.

Die Abbildung zeigt das Ergebnis des Makros, wenn in der aktiven Arbeitsmappe drei versteckte Tabellenblätter enthalten sind: "Versteckt", "Verborgen" und "Unsichtbar".

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung:
www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html