Hyperlinks ändern
15.02.2005 10:58:19
Holger
In meiner Excel-Datei sind sehr viele Arbeitsblätter. Um bestimmte Ergebnis-Zellen in bestimmeten Arbeitsblättern schnell zu erreichen, habe ich ein Tabellenblatt als Inhaltsverzeichnis aufgebaut. Von hier kann man über Hyperlinks in die Ergebnis-Zellen in den Arbeitsblättern
springen.
Jetzt wurden viele Arbeitsblätter umbenannt (z.B. "Plan-Ist" in "Planvergleich"). Die Hyperlinks funktionieren deswegen nicht mehr.
Ich möchte jetzt die Hyperlinks über VBA-Makro ändern. Folgende Lösung funktioniert bei mir nicht:
Sub Hyperlink_aendern()
Dim oldtext As String
Dim newtext As String
Dim h As Hyperlink
oldtext = "Plan-Ist"
newtext = "Planvergleich"
For Each h In ActiveSheet.Hyperlinks
x = InStr(1, h.Address, oldtext)
If x > 0 Then
h.Address = newtext
End If
Next
End Sub