---

Hallo Leute,

unser System hat neue Laufwerksbuchstaben und Pfade. Was gleich geblieben ist sind die Dateinamen auf die sich die Hyperlinks beziehen. Kann ich die alten Pfade durch den neuen ersetzten, oder muss ich die Hyperlinks aufwändig manuell neu zuweisen?

------------------
Gruß Thermo

Take it easy, altes Haus, wer morgens länger schläft, hälts abends länger aus.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

falls eine Zuordnungstabelle oder sonstige Abbildungsvorschrift existiert sollte das kein Problem sein.

mal ins blaue

Code:

---

For Each hyp In Worksheets(1).Hyperlinks
    hyp.Address = Neueadresse(hyp.Address)
Next

---

Die Funktion 'NeueAdresse' entsprechend der Abbildungsvorschrift Codieren

Gruß
Peter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thermo,

ich hätte da auch nur eine VBA-Lösung zu bieten:

Code:

---

Sub ErsetzeAlleHyperlink()

    Dim alterPfad As String
    Dim neuerPfad As String
    Dim myLink As Hyperlink
   
    ' Achtung: Groß/Kleinschrift beachten, ist für das Ersetzen wichtig
    alterPfad = "c:\temp\"
    neuerPfad = "f:\ein\neues\verzeichnis\"
   
    ' durch alle Hyperlinks im Blatt laufen, Blattname muss angepasst werden
    For Each myLink In Sheets("Tabelle1").Hyperlinks
        ' und in der Adresse des Links den Teil alt gegen neu tauschen
        myLink.Address = Replace(myLink.Address, alterPfad, neuerPfad)
   
    Next

End Sub

---

Mit normalem Suchen/Ersetzen kannst du den Inhalt der Zellen ändern, mit dem Makro eben die Hyperlinks.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

vielen Dank, habe mit VBA noch nie etwas gemacht aber werde es mal auf diese Weise ausproboieren 

------------------
Gruß Thermo

Take it easy, altes Haus, wer morgens länger schläft, hälts abends länger aus.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@ Stefan : hat super funktioniert  Hast mir gerade 4 Tage arbeit erspart 

------------------
Gruß Thermo

Take it easy, altes Haus, wer morgens länger schläft, hälts abends länger aus.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP