Office: Hyperlink-Pfade verändert

Hallo,
ich habe ein Problem mit Hyperlink-Pfaden. In einem Excel-Sheet habe ich sehr viele Links von Fotos hinterlegt. Seit gestern haben sich alle Pfade automatisch verändert in dem sie den Pfad
..\..\AppData\Roaming\Microsoft\Excel vor den eigentlichen Pfadnahmen gesetzt haben.
Ich habe eine Datei aus der Datensicherung wieder eingespielt, doch wenn ich die Datei starte, sind auch dort die Pfade verändert.
Wie kann das passieren aber vor allem kann ich die alten Pfade wiederherstellen ohne jeden Link neu aufbauen zu müssen?
VG

 

Hallo Jobra,
möglicherweise hast Du Deine Links mit relativen Pfaden angelegt und dann die Mappe verschoben. XL findet dann Deine Bilder nicht mehr und setzt diesen Hilfspfad. Für mich ist es seit Jahren gute Praxis solche Link-Ziele in einer Verzeichnisstruktur direkt unterhalb der Mappe zu speichern. In VBA spreche ich das dann so an:

Code:

Dim sPath as String
sPath = Thisworkbook.path & "\" & Pics & "\"

Ohne VBA kannst Du XL aber auch dazu zwingen absolute Pfadangaben zu verwenden: Datei > Optionen > Erweitert > Allgemein > Hyperlinks mit vollständigem Pfad speichern anhaken.

Jetzt stehst Du allerdings vermutlich vor der Sisyphos-Aufgabe, all Deine Links wieder zu korrigieren. Wenn Deine Links als Text in den Zellen liegen, geht das mit Suchen/Ersetzen. Sind es Link-Objekte, brauchst Du VBA:

Code:

Sub Links_Korrigieren()
    Dim lnk As Hyperlink, sFalse As String, sTrue As String
    sFalse = "..\..\AppData\Roaming\Microsoft\Excel" 'ANPASSEN
    sTrue = "C:\MeinNeuerPfad" 'ANPASSEN

    For Each lnk In ActiveSheet.Hyperlinks
        lnk.Address = Replace(lnk.Address, sFalse, sTrue)
    Next lnk
End Sub

Kopiere diesen Code in ein VBA-Modul, passe die zwei markierten Zeilen an und starte es mit F5. Dann wird das jeweils aktive Sheet korrigiert. Falls Du dazu noch eine Erläuterung brauchst, lass wissen.

Viel Erfolg!

 

Hallo Bastler, ich habe es ausprobiert aber es funktioniert nicht.
Der korrekte Pfad sieht so aus:


Aktuell hat sich der Pfad jedoch so verändert:


Ich habe das VBA so ergänzt:

 

Hi,

dir ist schon aufgefallen, dass in deinem ersten Bild unter "Adresse:" als Pfadtrennzeichen "\" (=Backslash) und im zweiten Bild "/" (=Slash) zu sehen ist? Das solltest du gleich mit korrigieren, sonst wird das nix.

 

Stimmt Bastler, irgendwann wird man blind! Aber es hat geklappt.... Vielen Dank

 

Der Dank gebührt aber mal auch dem Helmut, oder?

 

Sorry, klar Helmut ich danke Dir.......