Hyperlink per VBA setzen "Ich raffs nicht"
23.03.2005 13:05:28
Thomas
ich habe ein großes Problem und komme mit meiner CD als auch mit der Recherche leider nicht zum Ziel.
Hoffentlich könnt Ihr mir helfen.
Ich habe eine Datei "Arbeitsdatei_Legitimation.xls" in folgendem Netzordner:
J:\TMb1\Legitimationsnachweise\Arbeitsordner\
In dieser Excel-Datei steht in einem Tabellenblatt Neue_Dokumente in Spalte I ein Dateiname.
Die dazugehörige Datei befindet sich auch in o.a. Ordner.
Es gelingt mir zwar diese Datei per Makro automatisch zu verlinken, aber beim Aufrufen des Linkes tut sich NIX.
Sub Acht()
'Hyperlinks werden gesetzt
Dim zeile As Integer
zeile = 2
Do While Cells(zeile, 9) <> ""
Worksheets("Neue_Dokumente").Hyperlinks.Add Anchor:=Cells(zeile, 8), _
Address:="J:\TMb1\Legitimationsnachweise\Arbeitsordner\" _
& Cells(zeile, 9) & ".pdf"
zeile = zeile + 1
Loop
End Sub
Wenn ich nun mit der Maus auf den soeben per Makro erstellten Link gehe, erscheint auch die komplette Adresse. Aber wenn ich eine Datei händisch (manuell) verlinke, erscheint folgende Adresse:
file:///\\speiser-f-data2\tm\TMb1\Legitimationsnacheise\Arbeitsordner
Und damit kann ich nun gar nix mehr anfangen.
Kann mir bitte jemand ein besseres und funktionierendes Makro geben, damit der Link aufgerufen werden kann, bzw. auch beim verschieben des kompletten Ordners die Links mitgenommen werden.
Danke Euch schon mal im voraus.
Gruß
Thomas