In Excel per Makro einen Hyperlink ändern
Sub Hyper() Dim HypLink As Hyperlink Dim strNeueURL As String alt = „..alter Pfad“ ‚anpassen neu = „neuer Pfad im Netzwerk z.B.“ ‚anpassen For Each HypLink In ActiveSheet.Hyperlinks strNeueURL = Replace(HypLink.Address, alt, neu) HypLink.Address = strNeueURL HypLink.TextToDisplay = HypLink.TextToDisplay ‚alternativ strNeueURL Next End Sub ***oder****+ Sub Test()Dim alterPfad As String
Dim neuerPfad As String
Dim myLink As Hyperlink
‚ Achtung: Groß/Kleinschrift beachten, ist für das Ersetzen wichtig
alterPfad = „\\daten3\Vertrieb\Test1“
neuerPfad = „\\daten2\test\test“
‚ durch alle Hyperlinks im Blatt laufen, Blattname muss angepasst werden
For Each myLink In Sheets(„Tabelle1“).Hyperlinks
‚ und in der Adresse des Links den Teil alt gegen neu tauschen
myLink.Address = Replace(myLink.Address, alterPfad, neuerPfad)
Next
End Sub