durch einen PC-Wechsel hat sich die Pfad-Angabe in den Hyperlinks meiner umfangreichen Tabelle geändert. Um nicht eine große Anzahl an Links manuell zu ändern, möchte ich sie mit VBA ändern. Mein Problem ist, dass die zu ändernden Pfad-Teile im unsichtbaren Bereich liegen, nicht aber in dem Bereich, den ich bei "Hyperlink bearbeiten" einsehen kann. Dort beginnt der Pfad immer mit ". . \....". Im nachfolgenden Beispiel findet das VBA-Macro in der SubAddress nicht den weiter vorher definierten Begriff "alter Teil" und läuft somit immer in den Else-Zweig. Ist SubAddress nicht der benötigte Parameter für die unsichtbare Pfad-Angabe?
For Each cell In rng
If cell.Hyperlinks.Count > 0 Then
' Überprüfen, ob der zu ersetzende Teil im Pfad enthalten ist
If InStr(1, cell.Hyperlinks(1).SubAddress, alterTeil) > 0 Then
' Ersetzen Sie den alten Teil durch den neuen Teil im unsichtbaren Pfad
cell.Hyperlinks(1).SubAddress = Replace(cell.Hyperlinks(1).SubAddress, alterTeil, neuerTeil)
Debug.Print "Nachher: " & cell.Hyperlinks(1).Address
Else
Debug.Print "Notfnd: " & cell.Hyperlinks(1).SubAddress & alterTeil & "cell= "; cell
Debug.Print "Adr= "; cell.Hyperlinks(1).Address
End If
End If
Next cell