Note: The other languages of the website are Google-translated. Back to English

Wie liste ich alle sichtbaren oder versteckten Blätter aus der Arbeitsmappe auf?

Wenn Sie eine große Arbeitsmappe haben, die einige versteckte Arbeitsblätter enthält, müssen Sie jetzt alle sichtbaren und versteckten Blätter separat in einem Arbeitsblatt auflisten, wie im folgenden Screenshot gezeigt. In diesem Artikel werde ich darüber sprechen, wie alle sichtbaren und versteckten Blätter in Excel aufgelistet werden.

Dokumentliste sichtbare Blätter 1

Listen Sie alle sichtbaren und versteckten Blätter separat mit VBA-Code auf

Listen Sie alle sichtbaren Blätter in Excel mit Kutools for Excel auf


Pfeil blau rechte Blase Listen Sie alle sichtbaren und versteckten Blätter separat mit VBA-Code auf

Um die sichtbaren und versteckten Registerkartennamen in einem Arbeitsblatt aufzulisten, kann der folgende VBA-Code Ihnen einen Gefallen tun. Gehen Sie wie folgt vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Alle sichtbaren und versteckten 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. Dann drücken F5 Mit dem Schlüssel zum Ausführen dieses Codes werden alle sichtbaren, versteckten und sehr versteckten Blätter in einem neuen Blatt separat aufgeführt.

Dokumentliste sichtbare Blätter 2


Pfeil blau rechte Blase Listen Sie alle sichtbaren Blätter in Excel mit Kutools for Excel auf

Wenn Sie Kutools for ExcelMit seinen Liste der Blattnamen erstellen Mit dieser Funktion können Sie schnell alle sichtbaren Blätter der aktuellen Arbeitsmappe mit Hyperlinks zu jeder Registerkarte auflisten.

Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. 

Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor:

1. Klicken Sie Kutoolen Plus > Arbeitsblatt > Liste der Blattnamen erstellen, siehe Screenshot:

2. In dem Liste der Blattnamen erstellen Dialogbox:

(1.) Wählen Sie Enthält eine Liste von Hyperlinks unter dem Blattindexstile Sektion;

(2.) Geben Sie einen Arbeitsblattnamen für den Blattindex ein.

(3.) Geben Sie den Speicherort des Arbeitsblattindex an.

(4.) Geben Sie an, wie viele Spalten die Arbeitsblattnamen im Blattindex anzeigen sollen.

Dokumentliste sichtbare Blätter 4

3. Und dann klick Ok Schaltfläche, alle sichtbaren Blätter wurden in einem neuen Blatt aufgelistet, ausgenommen die versteckten Blätter, siehe Screenshot:

Dokumentliste sichtbare Blätter 5

Klicken Sie auf Download und kostenlose Testversion von Kutools for Excel Now!


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (2)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Da error el codigo que aparece ahi el correcto seria: 

UnternameSheets()

Dim x so lang
Dimmen und so lange
Dim z so lang
Dim ws als Arbeitsblatt
Dim shtCnt als ganze Zahl
Dim i Als Ganzzahl

x = 1
y = 1
z = 1
shtCnt = ActiveWorkbook.Sheets.Count
On Error Resume Next
Application.ScreenUpdating = False
Sheets.Add After:=Sheets(Sheets.Count)
Für i = 1 bis shtCnt
Wenn Sheets(i).Visible = xlSheetHidden Then
Zellen(x, 2) = Blätter(i).Name
x = x + 1
End If
Wenn Sheets(i).Visible = xlSheetVisible Then
Zellen(y, 1) = Blätter(i).Name
y = y + 1
End If
Wenn Sheets(i).Visible = xlSheetVeryHidden Then
Zellen(z, 3) = Blätter(i).Name
z = z + 1
End If
Weiter ich
Application.ScreenUpdating = True
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Solange,
Vielen Dank für Ihren begeisterten Kommentar. Sowohl der von Ihnen bereitgestellte Code als auch der Code in diesem Artikel funktionieren gut. Nochmals vielen Dank!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL