Mit dem Makro unten füge ich etwa 700 Hyperlinks
in einer Liste ein. Klappt alles hervorragend.
Nur fügt mir Excel jeweils C:\ als aktuelles
Laufwerk ein und genau das möchte ich nicht.
Der Link lautet : /Ordner/Datei und dabei soll
es auch bleiben. Nur macht mir Excel daraus eben
C:\Ordner\Datei. Beim Überspielen auf den Web-
server führt das dann zu Problemen. Dort gibt
es ja nur den Ordner und die Datei.
Was muß ich tun, um auf dem Webserver funktionierende
Links hinzubekommen ?
Einen schönen Nachmittag allerseits
R.Schmitt
Sub Hyperlink()
Dim i As Variant
Dim Link As String
Do Until Range("c2").Offset(i, 0).Value = ""
Range("C2").Offset(i, 0).Select
Link = Range("C2").Offset(i, 1).Value
Text = Range("C2").Offset(i, 0).Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Link, _
TextToDisplay:=Text
i = i + 1
Loop
End Sub