variabler Hyperlink Pfad
25.10.2013 10:26:17
junior
ich erstelle aus meiner aktuellen Arbeitsmappe einen neuen Ordner,
in dem eine Datei kopiert wird und als Hyperlink in meiner Arbeitsmappe auftaucht.
Ausschnitte aus meinem code:
MyOrdner_neu = Application.ActiveWorkbook.Path & "\" & OrdnerName
MkDir (MyOrdner_neu)
Set fso = CreateObject("Scripting.FileSystemObject")
sourceFile = Range("B15")
targetFile = MyOrdner_neu & "\" & Range("Z1")
fso.copyfile sourceFile, targetFile
'Protokoll Hyperlink
Worksheets("Eintrag").Hyperlinks.Add Worksheets("Liste").Cells(ZeilenNr, 13), targetFile, _
TextToDisplay:="Protokoll"
Meine damit wenn ich mit meiner Arbeitsmappe irgendwann auf einen anderen PC umziehe und der Pfad wo meine Arbeitsmappe sich befindet sich ändert,
werde ich meine Hyperlinks nicht mehr aus dem dokument erreichen können, weil es ja ein fester Pfad ist.
Hat jemand eine Idee wie man dies lösen könnte?
Anzeige