wir mussten die Daten verschieben, jetzt haben wir Hyperlinks auf Excel Dokumente die nicht mehr gehen!
Kann mir jemand helfen wie ich das mit einem Makro erledigen kann so dass ich nicht jedes Dokument neu verlinken muss?
Alter Link:
"G:\08_OP\01_FA\03_Projekte\Frei\Kunden\Kunde\2032-Langbandschiene 133-Transferfertigung\20 Projektabwicklung\23 Projektpflichtenheft\2032-Projektpflichtenheft.xls"
Neuer Link:
"G:\08_OP\80_Kunden\Frei\Kunden\Kunde\2032-Langbandschiene 133-Transferfertigung\20 Projektabwicklung\23 Projektpflichtenheft\2032-Projektpflichtenheft.xls"
Ich hatte mal sowas gefunden aber weiss nicht wie aanpassen?
Sub hl()
Dim altsv As String, neusv As String
altsv = "\\Kunde\dfs-2\" 'Groß / klei beachten !!
neusv = "\\Kunde.ch\dfs-2\from\"
Dim hlk As Hyperlink
For Each hlk In Sheets("Zugelassene Lieferanten").Hyperlinks 'Tabelle anpassen !
hlk.Address = Replace(hlk.Address, altsv, neusv)
Next
End Sub
Wäre sehr nett wenn mir da geholfen werden könnte.
Gruss MaBlu