AW: Unterschied Formel- und echter Hyperlink
23.09.2015 11:10:39
Michael
Hallo Andreas, Hallo Manfred!
Manfreds Vorgehensweise funktioniert aber nur, wenn Andreas Hyperlinks durch =Hyperlink(...), also Formel-Hyperlinks, erzeugt wurden. Wenn echte Hyperlinks gesetzt wurden (Zell-Kontextmenü "Hyperlink..." bzw. Strg + K) dann werden durch Manfreds Methode nur die angezeigten Namen angepasst, nicht aber die Link-Ziele. Dafür braucht es VBA:
Handelt es sich also um echte Hyperlinks, kann der Verzeichnis-Name etwa so getauscht werden (in einem allgemeinen Modul):
Sub HyperlinksAnpassen()
Dim Link As Hyperlink
Dim Alt As String
Dim Neu As String
Alt = "ABC" 'Alter Verzeichnisname
Neu = "123" 'Neuer Verzeichnisname
For Each Link In Worksheets(1).Hyperlinks
Link.Address = Replace(Link.Address, Alt, Neu)
Link.TextToDisplay = Replace(Link.TextToDisplay, Alt, Neu)
Next
End Sub
Mit diesem Code wird in jedem Hyperlink auf dem ersten Tabellenblatt in der Zieladresse "ABC" mit "123" ausgetauscht, ebenso im angezeigten Namen. Ist als Bsp. gedacht - muss ggf. an die konkreten Bedingungen angepasst werden. Dieser Code gilt nur, wenn Verzeichnis umbenannt wird, NICHT wenn es komplett verschoben wird, dann muss ein anderer Code zum Einsatz kommen!
LG
Michael