VBA: Problem bei Hyperlinkerstellung

Question

Halli Hallo!

Mit nachstehendem Code erzeuge ich einen Hyperlink auf das aktuelle Blatt.
sub test()
asn = ActiveSheet.Name

Sheets("Zusammenfassung").Select
range("a1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"" & asn & "!B1", TextToDisplay:="" & asn
End sub

Solange der Blattname "normal" ist klappt alles.
Manchmal bekomme ich aber bei einem Klick auf den Link folgende Fehlermeldung:
Bezug ist ungültig.

Bei der händischen Erstellung des Hyperlinks ist mir aufgefallen, dass manche Tabellenblätter vor und nach dem Namen ein ' haben.
Was genau bedeutet dies im Blattnamen?
"Normale" Blattnamen (ohne ') können problemlos verlinkt werden.
Bei sämtlichen Tabellenblätter die ein ' im Namen haben, funktionieren leider nicht.
Zur Vereinfachung habe ich unter
www.file-upload.net/download-3905646/Hyperlink_Muster01.XLS.html
eine Musterdatei abgelegt.

Ciao

Tom

Answer 1

Hallo Tom,

bei mir klappt' so

Option Explicit

Sub Daten_uebertragen()
Dim x As Variant, Empf_Name As String, asn As String
Dim i As Integer
Application.ScreenUpdating = False
asn = ActiveSheet.Name
Set x = ActiveSheet
x.Select
i = 3 '3 Zeilen in ARVerzeichnis als Ueberschrift vorhanden
i = i + Range("B1").Value
'Hyperlink erstellen
Sheets("Zusammenfassung").Select
Cells(i, 11).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & asn & "'!B1", TextToDisplay:="" & asn

Range("A3").Select
Application.CutCopyMode = False
End Sub

In diesem Befehl fehlen 2 Hochkommas

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"" & asn & "!B1", TextToDisplay:="" & asn

Gruß
Rainer

Answer 2

Guten Morgen Rainer!

Danke für Deine Korrektur!

Ich wünsche Dir noch einen schönen Tag!

Tom