Inhaltsverzeichnis einer Datei erstellen und Hyperlinks setzen

In umfangreichen Dateien bei denen gelegentlich neue Tabellenblätter hinzukommen kann es sinnvoll sein, ein vorgelagertes Blatt Inhaltsverzeichnis zu erstellen.

Dieses Tabellenblatt soll eine Auflistung der vorhandenen Tabellenblätter bekommen sowie einen Hyperlink, der es ermöglicht, zum jeweiligen Tabellenblatt zu springen.

Dies lässt sich mit nachstehendem Code im Open Ereignis der Arbeitsmappe bewerkstelligen Private Sub Workbook_Open() Dim Tabelle As Worksheet Dim i As Integer 'Prüfen ob Blatt "Inhaltsverzeichnis" bereits vorhanden 'Wenn vorhanden dann ohne Nachfrage löschen Application.DisplayAlerts = False For Each Tabelle In ActiveWorkbook.Worksheets If Tabelle.Name = "Inhaltsverzeichnis" Then Sheets("Inhaltsverzeichnis").Delete Next Application.DisplayAlerts = True Worksheets.Add.Move before:=Worksheets(1) ActiveSheet.Name = "Inhaltsverzeichnis" Cells(2, 2).Value = "Enthaltene Arbeitsblätter" i = 3 For Each Tabelle In ActiveWorkbook.Worksheets If Tabelle.Name <> "Inhaltsverzeichnis" Then Cells(i, 2).Value = Tabelle.Name Tabelle.Hyperlinks.Add Anchor:=Cells(i, 2), _ Address:="", SubAddress:="'" & Tabelle.Name & "'" & _ "!A1", ScreenTip:="zum Tabellenblatt", _ TextToDisplay:=Tabelle.Name i = i + 1 End If Next Tabelle End Sub

 Share on Facebook

Read more http://vba-codeschnipsel.de/inhaltsverzeichnis-einer-datei-erstellen-und-hyperlinks-setzen/