Hyperlink Pfade ändern
25.01.2020 14:26:45
Luna
da sich in meiner Tabelle der Pfad für die Hyperlinks geändert hat, habe ich ein Makro gesucht, welches mir direkt alle Pfade aktualisiert. Ich habe auch eins gefunden und auf meine Pfade angepaßt aber irgendwie funktioniert es nicht. Kann mir jemand sagen, wo mein Fehler liegt oder was ich beachten muss so das das Makro funktioniert. Die Hyperlinks greifen auf PDF Dateien zu die in einem Ordner (Cotizacion) liegen. Der neue Ordner liegt in der Dropbox.
Zur Info ich arbeite mit dem Office 365 Paket
Hier das Makro was ich nutze:
Sub ErsetzeAlleHyperlink()
Dim alterPfad As String
Dim neuerPfad As String
Dim myLink As Hyperlink
' Achtung: Groß/Kleinschrift beachten, ist für das Ersetzen wichtig
alterPfad = "C:\Users\carst\Downloads\Cotizacion\"
neuerPfad = "C:\Users\carst\Dropbox\Carsten\Organizacion\Descripcion\Cotizacion\"
' durch alle Hyperlinks im Blatt laufen, Blattname muss angepasst werden
For Each myLink In Sheets("Material").Hyperlinks
' und in der Adresse des Links den Teil alt gegen neu tauschen
myLink.Address = Replace(myLink.Address, alterPfad, neuerPfad)
Next
End Sub
Luna
Anzeige