Get Adobe Flash player

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 HyperlinkAendern()
 
Dim i As Long
Dim HypAlt As String
Dim HypNeu As String
 
‚Hier alten und neuen Pfad anpassen
HypAlt = „..alter pfad“
HypNeu = „neuer pfad im Netzwerk z.B.“
For i = 1 To ActiveSheet.Hyperlinks.Count
ActiveSheet.Hyperlinks(i).Address = _
Replace(ActiveSheet.Hyperlinks(i).Address, HypAlt, HypNeu)
Next
End Sub
 
*****

Das ganze auch nochmals als pdf hier zum anschaun: download