Pfade per Makro aktualisieren

Sub UpdateAllLinksEnhanced_NoAlertsOff()

    Dim oldLink As String, newLink As String

    Dim ws As Worksheet

    Dim links As Variant, i As Long

    Dim nm As Name

    Dim chObj As ChartObject

    Dim ser As Series



    ' Alte und neue Dateipfade definieren

    oldLink = ""

    newLink = ""

    

    ' Sicherstellen, dass die neue Datei existiert

    If Dir(newLink) = "" Then

        MsgBox "Die Datei " & newLink & " wurde nicht gefunden. Bitte überprüfe den Pfad.", vbCritical

        Exit Sub

    End If



    ' 1. Externe Links über ChangeLink aktualisieren

    links = ThisWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)

    If Not IsEmpty(links) Then

        For i = LBound(links) To UBound(links)

            If InStr(links(i), oldLink) > 0 Then

                ThisWorkbook.ChangeLink Name:=links(i), NewName:=newLink, _

                    Type:=xlLinkTypeExcelLinks

            End If

        Next i

    End If



    ' 2. Zellinhalte in allen Arbeitsblättern anpassen (Formeln, Texte etc.)

    For Each ws In ThisWorkbook.Worksheets

        ws.Cells.Replace What:=oldLink, Replacement:=newLink, LookAt:=xlPart, _

            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

        

        



    ' 3. Aktualisieren von definierten Namen (Namensmanager)

    For Each nm In ThisWorkbook.Names

        If InStr(nm.RefersTo, oldLink) > 0 Then

            nm.RefersTo = Replace(nm.RefersTo, oldLink, newLink)

        End If

    Next nm



    MsgBox "Alle Verknüpfungen wurden aktualisiert!", vbInformation, "Fertig"

End Sub