Office: (Office 2019) Excel Link Quellcode mit Makros automatisch ändern

Hallo,
kann mir wer helfen ich habe Chatgpt gefragt wie ich den Quellcode von einem Hyperlink automatisch anhand von Makros ändern kann, wenn ich die Ordner verschiebe und habe das als Antwort bekommen.
"(meine Fragestellung:ich habe eine Excel liste mit Verlinkungen zu Pdfs erstellt welche alle in dem gleichen Ordner liegen diesen Ordner will ich in ein anderes Laufwerk verschieben jedoch kann ich die Links dann nicht mehr öffnen weil sich der Speicherort verändert hat kannst du mir eine lösung geben damit ich dieses Problem schnell lösen kann)

Code:

Sub UpdateLinksInColumnD()
    Dim oldPart As String
    Dim newPart As String
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long

    ' Geben Sie hier den alten und neuen Teil des Pfads ein, der ersetzt werden soll
    oldPart = "AlterTeil\"
    newPart = "NeuerTeil\"

    ' Gehe durch alle Arbeitsblätter in der Arbeitsmappe
    For Each ws In ThisWorkbook.Worksheets
        ' Finde die letzte Zeile in Spalte D
        lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row

        ' Durchlaufe die Zellen in Spalte D
        For i = 1 To lastRow
            ' Überprüfe, ob die Zelle den alten Teil des Pfads enthält
            If InStr(1, ws.Cells(i, "D").Value, oldPart, vbTextCompare) > 0 Then
                ' Ersetze den alten Teil des Pfads durch den neuen Teil
                Dim updatedLink As String
                updatedLink = Replace(ws.Cells(i, "D").Value, oldPart, newPart, , , vbTextCompare)
                ws.Hyperlinks.Add Anchor:=ws.Cells(i, "D"), Address:=updatedLink
            End If
        Next i
    Next ws
End Sub

Das Makro, das Sie gepostet haben, durchläuft alle Arbeitsblätter in der Arbeitsmappe und sucht in Spalte D nach einem bestimmten Teil des Pfads, der durch die Variable oldPart definiert ist. Wenn dieser Teil in der Zelle gefunden wird, wird er durch den Teil ersetzt, der in der Variable newPart definiert ist. Der aktualisierte Pfad wird dann als Hyperlink in derselben Zelle in Spalte D gesetzt.

Sie möchten nun alle Hyperlinks aktualisieren, indem Sie den Pfad "C:\Pfade" durch "D:\NeuePfade" ersetzen.

Das Makro durchläuft nun alle Zellen in Spalte D und sucht nach "C:\Pfade". Wenn es eine Zelle gibt, die diesen Teil enthält, wird dieser durch "D:\NeuePfade" ersetzt, und der aktualisierte Pfad wird als Hyperlink in dieselbe Zelle gesetzt.

Das ist, wie das Makro funktioniert. Sie müssen den alten Teil des Pfads, den Sie ersetzen möchten, in oldPart und den neuen Teil, durch den Sie ihn ersetzen möchten, in newPart eingeben. Beachten Sie, dass das Makro den Teil des Pfads genau so ersetzt, wie er in oldPart angegeben ist. Wenn Sie zum Beispiel nur "C:" angeben, würde es nur den Teil "C:" ersetzen und den Rest des Pfads unverändert lassen.

Passen Sie die Werte von oldPart und newPart entsprechend Ihren spezifischen Anforderungen an, und führen Sie dann das Makro aus. Die Hyperlinks in Spalte D werden entsprechend aktualisiert."

Leider funktioniert das nicht ganz so wie ich mir das vorstelle, nämlich gar nicht.

 

Hi,

versuche es mal so:

Code:

Sub hyperlink_inhalte_ersetzen()
    Dim hyAdresse As Hyperlink
    Dim ws As Worksheet
    Dim oldPart As String
    Dim newPart As String
    oldPart = "AlterTeil\"
    newPart = "NeuerTeil\"
    For Each ws In ThisWorkbook.Worksheets
        With ws.Columns(4)
            For Each hyAdresse In .Hyperlinks
                hyAdresse.TextToDisplay = Replace(hyAdresse.Parent.Formula, oldPart, newPart)
                hyAdresse.Address = Replace(hyAdresse.Parent.Formula, oldPart, newPart)
            Next hyAdresse
        End With
    Next ws
End Sub

---

 

Danke für die Schnelle Antwort!
Der Code Funktioniert aber er ändert alle Hyperlinks einheitlich ich habe ca. so eine Ordnerstruktur bei den Links C:\a\x\; C:\a\y\; C:\a\z\ und will, dass danach C:\b\x\; C:\b\y\; C:\b\z\ steht. Kann man das noch mit Makros Programmieren?

 

Logischerweise muss der Code alle Hyperlinks einheitlich ändern: er ändert den Teil der auf der Variablen oldPart steht in den Teil der auf der Variablen newPart steht - was soll er denn daran "uneinheitlich" ändern? In deinem geposteten Fall muss also oldPart = "\a\" sein und newPart = "\b\", denn nur dieser Teil soll ja geändert werden und der Rest bleibt. Wenn deine Links allerdings so aufgebaut sind, dass der Teil "a" mehrfach vorkommt, dann musst du die Variablen so belegen, dass die zu ändernden Teile eindeutig erkannt werden - in deinem Beispiel wäre das dann so: oldPart = "C:\a\" und newPart = "C:\b\"

---

 

ah ok ich versuch es mal er übernimmt halt nur das \b\ beispielsweis und macht daraus nicht \b\x\; \b\y\ und so aber ich mach das zum ersten mal blick noch nicht ganz durch