Sub MappenInhaltZusammenstellen()
Dim Tabelle As Worksheet
Dim i As Integer
Worksheets.Add.Move before:=Worksheets(1)
ActiveSheet.Name = "Inhalt"
Cells(2, 2).Value = "Enthaltene Blaetter"
i = 3
For Each Tabelle In ActiveWorkbook.Worksheets
If Tabelle.Name <> "Inhalt" Then
Cells(i, 2).Value = Tabelle.Name
Tabelle.Hyperlinks.Add Anchor:=Cells(i, 2), _
Address:="", SubAddress:= Tabelle.Name & _
"!A1", ScreenTip:="Hyperlink klicken", _
TextToDisplay:=Tabelle.Name
i = i + 1
End If
Next Tabelle
End Sub
Das Makro läuft bei mir erst wenn ich die Zeilen "ScreenTip" und
"TextToDisplay" deaktiviere.
Es arbeitet dann aber fehlerhaft, d.h. wenn ich auf den erstellten Hyperlink klicke,dann meldet Excel "Kein Bezug".
Gehe ich unter "Hyperlink bearbeiten", dann sehe ich das vor und nach dem Tabellenblattnamen die Anführungsstriche (') nicht gesetzt sind.
Füge ich diese händisch dazu, dann funktioniert der Hyperlink.
Was kann die Ursache des Fehlers sein ?