Vieles rund um die EDV

Hyperlink ändern

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