=HYPERLINK via VBA
Gegga
Nun hat sich bei uns die Ordnerstruktur etwas geändert.
Folgendes habe ich vor:
Mit folgendem Code will ich eine Datei verschieben, wenn in Zelle Q2 Erledigt steht
Sub test()
Dim Fs, Fl
Set Fs = CreateObject("Scripting.filesystemobject")
Fs.MoveFile "C:\1088 Zusatzbestellungen laufende Projekte\NAME\Datei.pdf", "C:\1088 _
Zusatzbestellungen laufende Projekte\NAME\ARCHIV\Datei.pdf"
End Sub
Jetzt soll sich aber der Hyperlink in Zelle F2 dementsprechend auch ändern.
Momentan habe ich diese Formel verwendet:
=HYPERLINK(C1&B4&"\"&C4&"_"&E4&".pdf";E4)
Lässt sich das vielleicht über VBA lösen?
Gruss Gegga
Anzeige