Wie listet man alle sichtbaren oder ausgeblendeten Arbeitsblätter einer Arbeitsmappe auf?
Wenn Sie eine umfangreiche Arbeitsmappe mit ausgeblendeten Arbeitsblättern haben und alle sichtbaren sowie ausgeblendeten Blätter – wie im folgenden Screenshot dargestellt – separat in einem Arbeitsblatt auflisten möchten, zeigt Ihnen dieser Artikel, wie Sie sämtliche Blätter in Excel übersichtlich erfassen können.
Alle sichtbaren und ausgeblendeten Blätter separat mit VBA-Code auflisten
Alle sichtbaren Arbeitsblätter in Excel mit Kutools für Excel auflisten
Alle sichtbaren und ausgeblendeten Blätter separat mit VBA-Code auflisten
Um die Namen aller sichtbaren und ausgeblendeten Registerkarten in einem Arbeitsblatt aufzulisten, hilft Ihnen der folgende VBA-Code. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Alle sichtbaren und ausgeblendeten Blätter separat auflisten:
Sub NameSheets()
'Updateby Extendoffice
Dim x As Long, y As Long, z As Long
Dim ws As Worksheet
Dim shtCnt As Integer
x = 1
y = 1
z = 1
shtCnt = ThisWorkbook.Sheets.Count
On Error Resume Next
Application.ScreenUpdating = False
Sheets.Add After:=Sheets(Sheets.Count)
For i = 1 To shtCnt
If Sheets(i).Visible = xlSheetHidden Then
Cells(x, 2) = Sheets(i).Name
x = x + 1
End If
If Sheets(i).Visible = xlSheetVisible Then
Cells(y, 1) = Sheets(i).Name
y = y + 1
End If
If Sheets(i).Visible = xlSheetVeryHidden Then
Cells(z, 3) = Sheets(i).Name
z = z + 1
End If
Next i
Application.ScreenUpdating = True
End Sub
3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Alle sichtbaren, ausgeblendeten und stark ausgeblendeten Blätter werden wie im folgenden Screenshot gezeigt in einem neuen Blatt separat aufgelistet:
Alle sichtbaren Arbeitsblätter in Excel mit Kutools für Excel auflisten
Wenn Sie Kutools für Excel installiert haben, können Sie mithilfe der Funktion Verknüpfungstabelle erstellen schnell alle sichtbaren Blätter der aktuellen Arbeitsmappe mit Hyperlinks zu jeder Registerkarte auflisten.
Nach der Installation von Kutools für Excelgehen Sie bitte wie folgt vor:
1. Klicken Sie auf KUTOOLS PLUS > Arbeitsblatt > Verknüpfungstabelle erstellen, siehe Screenshot:
2. Im Dialogfeld Verknüpfungstabelle erstellen:
(1.) Wählen Sie unter dem Abschnitt Hyperlinks erstellendie Option Stilaus;
(2.) Geben Sie einen Namen für das Arbeitsblatt mit dem Blattverzeichnis ein.
(3.) Legen Sie den Speicherort für das Arbeitsblattverzeichnis fest.
(4.) Geben Sie an, wie viele Spalten im Blattverzeichnis für die Anzeige der Arbeitsblattnamen verwendet werden sollen.
3. Klicken Sie anschließend auf die Schaltfläche OK, und alle sichtbaren Blätter – ohne die ausgeblendeten – werden in einem neuen Blatt aufgelistet, siehe Screenshot:
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins