Thema: Hyperlink

Hallo Leute
ich möchte einen Hyperlink in eine Zelle einfügen mit der Tabellenadresse die als name in der Zelle ist.
ich habe es mit folgendem probiert:
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=ActiveCell.Value
aber ich bekomme den Hinweis "Verweis ist ungültig".
Wie stelle ich es an?
Danke
Serge

Hi Serge,
bei mir geht das problemlos. Steht in Tabelle1!A1 der Text Tabelle2!A1 und die Zelle (Tabelle1!A1) ist aktiv, dann wird daraus mit der Codezeile ein funktionstüchtiger Hyperlink.
Grüße Boris

Hi,
so müsste es gehen:

Sub Hyperlink_erstellen()
Dim Adresse
Adresse = ActiveCell.Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Adresse
End Sub

Gruß
otto

Mir ist ein Licht aufgegangen:
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & Sheets(ActiveCell.Value).Name & "'!A1", TextToDisplay:=Sheets(ActiveCell.Value).Name
Gruss Serge