Herbers Excel-Forum - das Archiv
=Zelle("dateiname") ---> HYPERLINK
- =Zelle("dateiname") ---> HYPERLINK von th.heinrich vom 14.10.2003 12:35:04
- AW: =Zelle("dateiname") ---> HYPERLINK - von xXx am 14.10.2003 12:43:32
- AW: =Zelle("dateiname") ---> HYPERLINK - von th.heinrich am 14.10.2003 13:40:04
- AW: =Zelle("dateiname") ---> HYPERLINK - von xXx am 14.10.2003 14:24:51
- AW: =Zelle("dateiname") ---> HYPERLINK - von th.heinrich am 14.10.2003 15:03:19
- Es war die Hilfe zu Hyperlinks.add (oT) - von xXx am 14.10.2003 15:09:22
- Es war die Hilfe zu Hyperlinks.add (oT) - von xXx am 14.10.2003 15:09:22
- AW: =Zelle("dateiname") ---> HYPERLINK - von th.heinrich am 14.10.2003 15:03:19
- AW: =Zelle("dateiname") ---> HYPERLINK - von xXx am 14.10.2003 14:24:51
- AW: =Zelle("dateiname") ---> HYPERLINK - von th.heinrich am 14.10.2003 13:40:04
- AW: =Zelle("dateiname") ---> HYPERLINK - von xXx am 14.10.2003 12:43:32
 |
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
 |
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!
|
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
|
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!
|
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
|
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!
| |