Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Hyperlink

Betrifft: Hyperlink von: serge
Geschrieben am: 09.07.2008 08:15:55

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

  

Betrifft: AW: Hyperlink von: {Boris}
Geschrieben am: 09.07.2008 08:26:17

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


  

Betrifft: AW: Hyperlink von: otto
Geschrieben am: 09.07.2008 08:30:04

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


  

Betrifft: Danke an beide von: serge
Geschrieben am: 09.07.2008 08:43:08

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


 

Beiträge aus den Excel-Beispielen zum Thema "Hyperlink"