Text in Hyperlink austauschen

[Rabe]

Hi,

ich habe eine Spalte mit 400 Zeilen, in denen Hyperlinks stehen.
Wie kann ich am einfachsten den Hyperlink-Pfad ändern: ersetzen von "Dokumente" durch ".."?

STRG-H:
   

Fehlermeldung:
   

Das Blatt ist nicht geschützt.

[chris-ka]

Hi,

sind das Hyperlinks die mit =Hyperlink(....
erzeugt worden sind oder "echte" Hyperlinks?

vgl.
https://www.ms-office-forum.net/forum/sh...p?t=236605

[Rabe]

Hi,

es sind echte Hyperlinks:

Arbeitsblatt mit dem Namen 'Dokumente'
	G
4	VA 4.2.3.1

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2013

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[Rabe]

Hi Chris,

danke, mit Deinem Link habe ich es nun so hinbekommen:

Option Explicit

Sub Versuch()
   Dim hyper As Hyperlink, strPath As String
   strPath = "Dokumente"
   For Each hyper In ActiveSheet.Hyperlinks
      If InStr(hyper.Address, strPath) <> 0 Then
         hyper.Address = Replace(hyper.Address, strPath, "..")
      End If
   Next hyper
End Sub

[Rabe]

Hi,

nun habe ich ein neues Problem:

Wenn ich die Datei an einen anderen Ort verschiebe, dann stimmen ja die Links nicht mehr, weil die dann relativ sind und nicht absolut.

Wenn ich mit dem Makro den Pfad anstelle der .. eintrage, dann stehen die Links trotzdem wieder relativ drin.
Aus "C:\Temp\Test\Dokument.xlsx" wird "..\Dokument.xlsx".

Wie kann ich das verhindern?

edit:
Wenn beim "Speichern unter" im Datei-Speicher-Dialog unten rechts bei "Tools" - "Web-Optionen" - "Dateien" der Haken entfernt wird von "Links beim Speichern aktualisieren", dann bleiben es absolute Pfade.