=Zelle("dateiname") ---> HYPERLINK
14.10.2003 12:35:04
th.heinrich
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
Anzeige