Angenommen, Sie haben eine Arbeitsmappe mit mehreren Arbeitsblättern. Jetzt möchten Sie alle Blattnamen in der aktuellen Arbeitsmappe auflisten. Gibt es eine schnelle Methode, um eine Liste dieser Blattnamen in Excel zu erstellen, ohne sie einzeln einzugeben? Dieses Tutorial enthält Anweisungen zum Auflisten von Arbeitsblattnamen in Excel.

Ruft eine Liste aller Arbeitsblattnamen aus einer Arbeitsmappe dynamisch mit Formeln ab

Rufen Sie eine Liste aller Arbeitsblattnamen aus einer Arbeitsmappe mit einer nützlichen Funktion ab

Rufen Sie eine Liste aller Arbeitsblattnamen aus einer Arbeitsmappe mit VBA-Code ab

Ruft eine Liste aller Arbeitsblattnamen aus einer Arbeitsmappe dynamisch mit Formeln ab

In Excel können Sie einen Bereichsnamen definieren und dann eine Formel anwenden, um alle Blattnamen aus der aktuellen Arbeitsmappe aufzulisten. Führen Sie die folgenden Schritte aus:

1. Gehe zu klicken Formel > Name Manager, siehe Screenshot:

2. In dem Name Manager Dialogfeld, klicken Sie auf Neu Schaltfläche, siehe Screenshot:

3. In der herausgesprungen Neuer Name Geben Sie im Dialogfeld einen Namen ein Name und Vorname Textfeld, und kopieren Sie dann die folgende Formel in das Bezieht sich auf Textfeld, siehe Screenshot:

=GET.WORKBOOK(1)&T(NOW())

4. Dann klick OK > Menu Um die Dialogfelder jetzt zu schließen, gehen Sie zu einem Blatt, in dem Sie alle Blattnamen auflisten möchten, und geben Sie die folgende Formel in eine leere Zelle ein:

=IFERROR(INDEX(MID(Sheetnames,FIND("]",Sheetnames)+1,255),ROWS($A$2:A2)),"")

Note: In der obigen Formel Blattnamen ist der Bereichsname, den Sie in Schritt 3 erreicht haben.

5. Ziehen Sie dann den Füllpunkt nach unten zu den Zellen, wenn leere Zellen angezeigt werden. Jetzt wurden alle Blattnamen der aktuellen Arbeitsmappe wie im folgenden Screenshot aufgeführt:

6. Wenn Sie den Hyperlink für jedes Blatt erstellen möchten, verwenden Sie bitte die folgende Formel:

=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")

Note: In der obigen Formel A2 ist die Zelle, die den Blattnamen enthält, und A1 ist die Zelle, in der sich die aktive Zelle befinden soll. Wenn Sie beispielsweise auf den Hyperlink-Text klicken, wird die Zelle A1 des Blattes gefunden.

7. Wenn Sie nun auf den Hyperlink-Text klicken, gelangen Sie zu diesem Blatt (siehe Demo unten):

Rufen Sie eine Liste aller Arbeitsblattnamen aus einer Arbeitsmappe mit einer nützlichen Funktion ab

Mit der Liste der Blattnamen erstellen Dienstprogramm des Drittanbieter-Add-Ins Kutools for ExcelMit einem Klick können Sie eine Liste der Arbeitsblattnamen erstellen und mit einem Hyperlink auf jedes Arbeitsblatt verweisen.

Nach der Installation Kutools for ExcelBitte machen Sie Folgendes:

1. Klicken Sie auf Kostenlos erhalten und dann auf Installieren. Kutoolen Plus > Arbeitsblatt > Liste der Blattnamen erstellen, siehe Screenshot:

2. In dem Liste der Blattnamen erstellen Im Dialogfeld geben Sie bitte die folgenden Einstellungen an:

(1.) Wählen Sie Blattindexstile Wenn Sie möchten, können Sie die Arbeitsblattnamen mit Hyperlinks oder mit Makroschaltflächen erstellen. (2.) Geben Sie die Arbeitsblattnamen für den Blattindex ein. (3.) Geben Sie den Speicherort des Arbeitsblattindex an. (4.) Geben Sie an, wie viele Spalten Sie im neuen Arbeitsblatt verwenden möchten, um die Arbeitsblattnamen anzuzeigen.

3. Klicken Sie nach Abschluss der Einstellungen auf OK. Alle Arbeitsblattnamen wurden mit Links in einem neuen Arbeitsblatt der aktuellen Arbeitsmappe aufgelistet. Siehe Screenshot:

Arbeitsblattnamen mit Hyperlinks	Arbeitsblattnamen mit Makrotasten

Rufen Sie eine Liste aller Arbeitsblattnamen aus einer Arbeitsmappe mit VBA-Code ab

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modul Fenster.

VBA: Listen Sie alle Arbeitsblattnamen mit Hyperlinks in einem neuen Arbeitsblatt auf:

Sub CreateIndex()
'updateby Extendoffice
    Dim xAlerts As Boolean
    Dim I  As Long
    Dim xShtIndex As Worksheet
    Dim xSht As Variant
    xAlerts = Application.DisplayAlerts
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Index").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Index"
    I = 1
    Cells(1, 1).Value = "INDEX"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Index" Then
            I = I + 1
            xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
        End If
    Next
    Application.DisplayAlerts = xAlerts
End Sub

3. Drücken Sie die F5 Taste, um dieses Makro auszuführen. Jetzt wurden alle Arbeitsblattnamen in der aktiven Arbeitsmappe in einem neuen Arbeitsblatt namens Index aufgelistet, und die Blattnamen sind auch mit jedem Blatt verknüpft, siehe Screenshot:

In Verbindung stehende Artikel