ich erstelle in einem Tabellenblatt eine Übersicht aller Sheets der Datei
und unterlege diese mit einem Hyperlink:
'Laufende Blattnummerierung + Blattname einfügen
For Each blatt In Sheets
Sheets("Inhaltsverzeichnis").Cells(zeile, 1).Value = "Blatt " & zeile - 2
Sheets("Inhaltsverzeichnis").Cells(zeile, 2).Value = blatt.Name
Sheets("Inhaltsverzeichnis").Hyperlinks.Add Anchor:=Cells(zeile, 2), Address:="", SubAddress:= _
blatt.Name & "!A1", TextToDisplay:=blatt.Name
zeile = zeile + 1
Next blatt
Soweit kein Problem.
Es passiert aber folgendes:
bei einigen Blättern funktioniert der Link,
bei einigen Blättern nicht!!
Ich habe festgestellt, wenn ich in der Zelle den Hyperlink mit "Hyperlink bearbeiten"
anklicke und in dem Dialogfeld dann unter
"Oder wählen Sie eine Stelle aus dem Dokument" auswähle und unter "Zellbezug"
die Blätter auflisten lasse, bestehen Unterschiede. Es gibt Blätter die werden
Tabelle1
oder aber auch
'Tabelle1'
mit den Anführungszeichen angezeigt.
Die Blätter ohne Anführungszeichen kann ich per Link erreichen,
bei Blättern mit '' erhalte ich den Hinweis beim Link "Verweis ungültig".
Woher kommen die Unterschiede; kann man das beheben?
Besten Dank für eine Hilfe!
mfg
Erich