Hyperlink mit Leerzeichen
22.06.2016 18:40:23
Lupo
ich habe ein Makro, mit dem ich ein Inhaltsverzeichnis erstelle.
Das Inhaltsverzeichnis listet alle Sheets einer Exceltabelle auf und erstellt für die einzelnen Sheets einen Hyperlink.
Das läuft auch alles prima.
Wenn aber der Sheetname ein Leerzeichen hat funktioniert der Link nicht.
Hat jemand eine Idee?
Danke schon mal im voraus.
Schöne Grüße,
Lupo
Folgende Code habe ich:
Sub Tabellenlistehy()
' Erstellt das Inhaltverzeichnis
Dim wks As Worksheet
Dim Zeile As Long
'nach alter Liste suchen und löschen
For Each wks In ThisWorkbook.Worksheets
If wks.Name = "Inhaltsverzeichnis" Then
Application.DisplayAlerts = False
wks.Delete
Application.DisplayAlerts = True
End If
Next wks
Worksheets.Add
ActiveSheet.Name = "Inhaltsverzeichnis"
ActiveSheet.Move Before:=Worksheets(1)
Zeile = 1
'alle Tabellen eintragen
For Each wks In ThisWorkbook.Worksheets
'als Hyperlink
With ThisWorkbook.Worksheets("Inhaltsverzeichnis")
'Hyperlink erstellen
.Hyperlinks.Add Cells(Zeile, 1), _
Address:="", SubAddress:=wks.Name & "!A1", TextToDisplay:=wks.Name
End With
Zeile = Zeile + 1
Next wks
End Sub