=Zelle("dateiname") ---> HYPERLINK

Bild

Betrifft: =Zelle("dateiname") ---> HYPERLINK
von: th.heinrich
Geschrieben am: 14.10.2003 12:35:04

bestes Forum,

mit diesem CODE versuche ich einen HYPERLINK zu erstellen.


Sub ChangetoHyperlink()
   Dim rng As Range
   For Each rng In Range("A1").CurrentRegion.Cells
      If Left(rng.Value, 4) = ".xls" Then
         rng.Offset(rowoffset:=0, columnoffset:=1).Activate
         rng.Hyperlinks.Add rng, rng.Value
      End If
  Next rng
End Sub


in B1 steht der mittels =Zelle("dateiname";B1) ermittelte pfad.
in A1 stelle ich mittels =RECHTS($B$1;FINDEN("xls";$B$1)-4)
fest ob eine .xls vorhanden ist.
was jetzt nicht funzzt ist das rng.Offset. es wird statt B1 A1 gelinkt.

danke fuer Euere hilfe thomas
Bild


Betrifft: AW: =Zelle("dateiname") ---> HYPERLINK
von: xXx
Geschrieben am: 14.10.2003 12:43:32

Hallo,
durch den Offset änderst du Rng ja nicht. Du müsstest also schreiben
rng.offset(0,1).Hyperlinks.add rng,rng.value

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!


Bild


Betrifft: AW: =Zelle("dateiname") ---> HYPERLINK
von: th.heinrich
Geschrieben am: 14.10.2003 13:40:04

hallo Udo,

bei Deinem vorschlag aendert sich nichts. nach wie vor wird A1 verlinkt.

habe auch schon versucht rng auf B1 bzw. A1:B1 zu setzen; ohne erfolg.

gruss thomas


Bild


Betrifft: AW: =Zelle("dateiname") ---> HYPERLINK
von: xXx
Geschrieben am: 14.10.2003 14:24:51

Hallo,
ein Blick in die Hilfe und ich hatte es:
activesheet.hyperlinks.add rng.offset(0,1),rng.value

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!


Bild


Betrifft: AW: =Zelle("dateiname") ---> HYPERLINK
von: th.heinrich
Geschrieben am: 14.10.2003 15:03:19

klasse Udo,

vielen dank. hatte mir die hilfe zu OFFSET auch angeschaut, dies half leider meinen bescheidenen VBA kenntnisse nicht auf die spruenge.

gruss thomas


Bild


Betrifft: Es war die Hilfe zu Hyperlinks.add (oT)
von: xXx
Geschrieben am: 14.10.2003 15:09:22

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!


 Bild

Beiträge aus den Excel-Beispielen zum Thema " =Zelle("dateiname") ---> HYPERLINK"