HERBERS Excel-Forum - das Archiv

Thema: Hyperlink

Hyperlink
serge

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

AW: Hyperlink
{Boris}

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

AW: Hyperlink
otto

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

Danke an beide
serge

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