Inhaltsverzeichnis einer Datei erstellen und Hyperlinks setzen
Original-Blog: VBA-Codeschnipsel Zum Original Blog
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
<.>
Zum Original Blog
Author: Andreas Entenmann
