Hyperlink: relativen in absoluten umstellen

[PMH]

Hallo liebes Forum.
ich habe mehrere Excel-Tabellen mit ca. insgesamt 10.000 Hyperlinks.

Leider werden die dortigen Hyperlinks als relative Hyperlinks angezeigt
Ich möchte diese aber als absolute Hyperlinks umstellen.

Beispiel: relativer Hyperlink: 
01 ABC.xlsm#XYZ_1332
----- hier springt der Hyperlink zu einer anderen Excel-Tabelle auf ein bestimmtes Feld

Beispiel: absoluter Hyperlink: 
E:\06 Test\02 Ordner1\01 ABC.xlsm#XYZ_1332
------diesen könnte ich jetzt "anfassen" um über ein Macro zu ändern

Was ich also benötige ist "etwas", womit ich jeden relativen in einen absoluten Hyperlink in den einzelnen Excel-Dateien ersetzten kann (mit einem "Schlag", also per Makro).

• Ein absoluter Hyperlink zeigt den kompletten Pfad für den Sprung z.B. zu einem anderen Dokument an; ein relativer Hyperlink dagegen nur einen Teil davon an.
  
• Absolute Hyperlinks kann man nur bei Neuanlage einer Excel-Tabelle erzwingen.
  
• Hier geht es um vorhandene Excel-Tabellen, wie ich schon erwähnte mit mehreren tausend Hyperlinks.
  

[PMH]

Ergänzung: Ich benötige ein Makro, welches durch die komplette Excel-Tabelle geht und jeden Hyperlink prüft, ob es ein absoluter oder relativer ist. Den relativen, dann auf einen absoluten Hyperlink umstellt.

[snb]

Vielleicht:

Code:

Sub M_snb()
    For Each it In Sheet1.Hyperlinks
        ThisWorkbook.FollowHyperlink it.Address
         With ActiveWorkbook
            it.Address = .FullName
            .Close 0
         End With
    Next
End Sub

[PMH]

Danke für die Antwort

aber ich bin kein Makro-Spezi

Ich hab' das Makro laufen lassen und es erfolgt ein Absturz in der ersten Zeile "For Each..." mit der Fehlernachricht Laufzeitfehler '424' Objekt erforderlich.


Das muß ich was ersetzen, aber was ?

Code:

For Each it In Sheet1.Hyperlinks

[steve1da]

Hola,

Copy/Paste klappt...

https://www.ms-office-forum.net/forum/sh...p?t=357177
https://www.computerbase.de/forum/thread...n.1849063/

Gruß,
steve1da