Wie erstellt man ein Inhaltsverzeichnis für alle Tabellenblattnamen mit Hyperlinks in Excel?

Eine Excel-Arbeitsmappe wird ziemlich groß, wenn immer mehr Arbeitsblätter darin erstellt werden. Je mehr Arbeitsblätter vorhanden sind, desto schwieriger ist es, den Überblick über die Arbeitsblätter zu behalten. Daher benötigen Sie ein Inhaltsverzeichnis, um schnell zwischen den Arbeitsblättern in Excel zu navigieren. Dieser Artikel zeigt Ihnen Methoden, um dies zu erreichen.

Erstellen eines Inhaltsverzeichnisses mit VBA-Code
Einfaches Erstellen eines Inhaltsverzeichnisses mit Kutools für Excel

Erstellen eines Inhaltsverzeichnisses mit VBA-Code

Der folgende VBA-Code kann Ihnen helfen, ein Inhaltsverzeichnis für alle Arbeitsblätter mit Hyperlinks in Excel zu erstellen. Bitte gehen Sie wie folgt vor.

1. Drücken Sie die Tasten Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie im Microsoft Visual Basic for Applications-Fenster auf Einfügen > Modul und kopieren Sie den folgenden VBA-Code in das Codefenster.

VBA-Code: Erstellen eines Inhaltsverzeichnisses für alle Arbeitsblätter

Sub CreateTableofcontents()
'updateby Extendoffice 20180413
    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("Table of contents").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Table of contents"
    I = 1
    Cells(1, 1).Value = "Table of contents"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Table of contents" 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 Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um den Code auszuführen.

Dann wird ein Inhaltsverzeichnis-Arbeitsblatt vor allen Arbeitsblättern erstellt, wobei alle Arbeitsblattnamen aufgelistet sind. Sie können zu jedem Arbeitsblatt navigieren, indem Sie auf den Arbeitsblattnamen im Inhaltsverzeichnis klicken. Siehe Screenshot:

Einfaches Erstellen eines Inhaltsverzeichnisses mit Kutools für Excel

Die Funktion Verknüpfungstabelle erstellen von Kutools für Excel kann Ihnen helfen, schnell ein Inhaltsverzeichnis in der aktuellen Arbeitsmappe zu erstellen. Gehen Sie bitte wie folgt vor.

1. Klicken Sie in der Arbeitsmappe, in der Sie ein Inhaltsverzeichnis erstellen möchten, auf Kutools Plus > Arbeitsblatt > Verknüpfungstabelle erstellen. Siehe Screenshot:

2. Im Dialogfeld Verknüpfungstabelle erstellen müssen Sie folgendes tun:

Dann wird ein Inhaltsverzeichnis-Arbeitsblatt wie im folgenden Screenshot gezeigt erstellt. Sie können zu jedem Arbeitsblatt navigieren, indem Sie auf den Arbeitsblattnamen im Inhaltsverzeichnis klicken.

Wenn Sie die Option Schaltflächen und Makros erstellen im Abschnitt Indexstile auswählen, erhalten Sie ein Inhaltsverzeichnis wie im folgenden Screenshot gezeigt.

Verwandte Artikel:

• Wie verweist man auf einen Tabellennamen in einer Zelle in Excel?
• Wie gleicht man den Zellenwert mit dem Tabellenblattnamen ab oder umgekehrt in Excel?
• Wie öffnet man ein bestimmtes Arbeitsblatt durch den ausgewählten Wert eines Kombinationsfelds in Excel?