Hyperlink auf aktive Zelle beziehen

Bild

Betrifft: Hyperlink auf aktive Zelle beziehen
von: Florian
Geschrieben am: 26.11.2003 10:05:19

Hi Forum!

Habe einen Hänger, hoffe ihr könnt mir helfen:-).

Ich will in der aktiven Zelle einen Hyperlink generieren. Dieser soll sich auf einen Unterordner im aktiven Ordner (ThisWorkbook.Path) beziehen, mit der aktiven Zelle als Variabler. Nachstehend mein Codeversuch:


ActiveCell.Select
Verweis = ActiveCell.Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ThisWorkbook.Path & "\Prüf- und Versuchsaufträge\ & Verweis.xls"

Wäre spitze, wenn Ihr mir helfen könntet!

Schöne Grüße,
Florian

Bild


Betrifft: AW: Hyperlink auf aktive Zelle beziehen
von: FCH
Geschrieben am: 26.11.2003 10:30:24

Hi,

sorry, aber bei

ActiveCell.Select

musste ich grinsen.

Versuche es so:


Sub hyp()
Dim Verweis As String
Verweis = ActiveCell.Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ThisWorkbook.Path & "\" & Verweis & ".xls"
End Sub


Gruß
FCH


Bild


Betrifft: AW: Hyperlink auf aktive Zelle beziehen
von: Florian
Geschrieben am: 26.11.2003 10:47:40

Hi FCH!

Schon o.k., befinde mich auf dem Level "gefährliches Halbwissen" ;-).

Danke Dir vielmals, funktioniert einwandfrei!

Gruß,
Florian


Bild


Betrifft: AW: Hyperlink auf aktive Zelle beziehen
von: GerdW
Geschrieben am: 26.11.2003 10:57:55

So unsinning ist das gar nicht. Wenn du z.B. eine Selektion von mehreren
Zellen auf die aktive Zelle reduzieren willst(warum auch immer).

Gerd


Bild

Beiträge aus den Excel-Beispielen zum Thema " Hyperlink auf aktive Zelle beziehen"