Ich versuche ein Inhaltsverzeichnis im Excel zu erstellen, mit Hyperlinks zu den einzelnen Tabellenblättern.
Es klappt recht gut (viel im Netz gefunden, etwas selber "verbessert"). Ein Problem kriege ich nicht gelöst: Wie bringe ich die Hyperlinks zum Funktionieren, wenn die Tabellenblätternamen Leerzeichen und Sonderzeichen (z.B. Klammern) enthalten?
Hier der bestehende Code
Sub Inhaltsverzeichnis()
Dim Tabelle As Worksheet
Dim i As Integer
Sheets("Übersicht Spezialitäten").Select
Application.ScreenUpdating = False
Range("D11:D250").Select
Selection.ClearContents
Range("D11").Select
i = 10
For Each Tabelle In ActiveWorkbook.Worksheets
If Tabelle.Name "Übersicht Spezialitäten" Then
Cells(i, 4).Value = Tabelle.Name
Tabelle.Hyperlinks.Add Anchor:=Cells(i, 4), _
Address:="", SubAddress:=Tabelle.Name & _
"!A1", ScreenTip:="Klicken Sie um zur Tabelle zu gelangen", _
TextToDisplay:=Tabelle.Name
i = i + 1
End If
Next Tabelle
Application.ScreenUpdating = True
End Sub
Was ich auch schon versucht habe, ist, die " mit ' zu versehen.
Also so:
Address:="#'", SubAddress:=Tabelle.Name & _
"'!A1", ScreenTip:="Klicken Sie um zur Tabelle zu gelangen", _
TextToDisplay:=Tabelle.Name
klappt nicht. So funktioniert gar kein Link mehr.
Ich bin sehr froh um eure Anregungen.
Vielen Dank im Voraus
Flotte Grüsse
Dani Schnider