Hyperlinks anpassen nach Ordneränderung - Makro
15.02.2016 09:29:13
Johannes
ich bin gerade dabei eine neue Ordnerstruktur zu generieren.
Nun passen natürlich die ganzen alten Hyperlinks in der Excel Datei nicht mehr.
Die Liste befindet sich unter:
.. \01_xx\06_yy\03_Liste\Übersichtsliste
Die Aufträge befinden sich nun auf demselben Laufwerk in einem anderen Ordner mit anderer Unterstruktur.
..\01_xx\06_yy\02_Aufträge\01_Märkte\01_Region\01_Markt\Auftrag xy
Aufgrund der Verschiebung der ganzen Aufträge in die neue (o. g. ) Ordnerstruktur, haben die Links z. B. nun folgende Verlinkung
.. \01_xx\06_yy\03_Liste\01_Markt\Auftrag xy
Dieser Ordner existiert aber nicht, da die Ordner 01_Markt\Auftrag xy ja unter 02_Aufträge und nicht unter 03_Liste zu finden sind.
Ich hatte mal ein ähnliches Problem, da bin ich auf ein Makro gestoßen welches mir weitergeholfen hat.
Nun habe ich versucht dieses abzuändern. Leider klappt das irgendwie nicht.
Habt ihr ne Ahnung wie ich das richtig hinbekomme?
Müsste sonst über 10000 Verlinkungen manuell andern .
Sub hyperhyper()
Dim HypLink As Hyperlink
Dim strNeueURL As String
alt = ".. \01_xx\06_yy\03_Liste\"
neu = "..\01_xx\06_yy\02_Aufträge\01_Märkte\01_Region\01_Markt\..\"
For Each HypLink In ActiveSheet.Hyperlinks
strNeueURL = Replace(HypLink.Address, alt, neu)
HypLink.Address = strNeueURL
HypLink.TextToDisplay = HypLink.TextToDisplay
Next
End Sub
