Office: Hyperlink in Zelle einfügen

earl-of-pain · 9. März 2007

Hallo zusammen,

komme mal wieder mit einem Problem vorbei. Habe eine Mappe, die nach der Fertigstellung auf 12 verschiedene Rechner aufgespielt wird. Unter anderem sind auch einige Hyperlinks enthalten (oder sollen enthalten sein). Da auf allen 12 Rechnern die Mappe am selben Ort liegt, und alle zu verlinkenden Dateien und Anwendungen ebenfalls, dachte ich mir die Hyperlinks gleich per VBA in die Zelle einzubinden. Habe dazu folgendes verwendet: Code:

Sub HyperlinkEinfügen()
Dim Hyper As Hyperlink
Set Hyper = ActiveCell.Hyperlinks.Add _
(anchor:=Range("AL13"), _
Address:="Hier steht mein Pfad")
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Leider funktioniert es nicht so wie erwartet, um die Wahrheit zu sagen, es funktioniert überhaupt nicht. Hat irgendjemand eine Idee ? Stehe etwas unter Zeitdruck.
Schon mal Danke.
Gruß Maik

:)

User · 10. März 2007

Hallo Maik,

Da ist einiges Durcheinander, so würd's funktionieren
Code:

Sub HyperlinkEinfügen()
ActiveSheet.Hyperlinks.Add anchor:=Activesheet.Range("A1"), _
Address:="Hier steht mein Pfad"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zelladresse anpassen oder so als Parameter übergeben:
Code:

Sub HyperlinkEinfügen(rThisCell as Range)
ActiveSheet.Hyperlinks.Add anchor:=rThisCell, _
Address:="Hier steht mein Pfad"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

earl-of-pain · 11. März 2007

Hallo Hansueli,
herzlichen Dank für die prombte Antwort, klappt herforragend.
Gruß Maik

Office: Hyperlink in Zelle einfügen

Hyperlink in Zelle einfügen

Hyperlink in Zelle einfügen

Hyperlink in Zelle einfügen - Similar Threads - Hyperlink Zelle einfügen

Hyperlink in bestimmte Zelle in Tabelle

Mit Hyperlink mehrere Zellen(inhalt!) anwählen

Hyperlink aus Zelle übernehmen

Hyperlink / bestimmte Zeichen aus Zelle

Hyperlink aus mehreren Zellen zusammensetzten

Hyperlink aus Zelle in Mail einfügen

Hyperlink in mehrere Zellen gleichzeitig einfügen