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