|
Hallo Community
Ich habe ein VBA Programm geschrieben welches mir die einzelnen Dateien auflistet mit den dazughörigen übergerordneten Ordner.
Wenn der Ordner auf dem Server liegt, dann bildet sich als Hyperlink in der Zelle statt die Serveradresse immer: ..\..\..\..\OrdnerX\OrdnerZ
Dadurch funktioniert der Hyperlink nicht mehr.
For Each Datei In fSo.GetFolder(Pfad).Files
AktivesBlatt.Hyperlinks.Add Anchor:=AktivesBlatt.Cells(LetzteZeile, 7), Address:=Datei.ParentFolder
Next Datei
Dim Datei as File
Was mache ich falsch?
Danke für eure Hilfe.
|