ich habs zwar nicht auf Tasche aber die KI scheint sowas schon zu kennen.  Welche hast du denn befragt? 

Hie muß man nur die Texte etwas anpassen. und sicherstellen das in der neuen Datei die Blattnamen zu den Alten passen.  Das könnte ein Probelm sein wenn die alle "Tabelle1" heissen.

' VBA code to replace Excel table links in a PowerPoint presentation
Sub EditPowerPointLinks()
    Dim oldFilePath As String
    Dim newFilePath As String
    Dim pptPresentation As Presentation
    Dim pptSlide As Slide
    Dim pptShape As Shape
    
    ' Der alte Dateipfad als Zeichenkette (der zu ersetzende Text)
    oldFilePath = "Pfad\\Zu\\Excel\\Datei.xlsx"
    
    ' Der neue Dateipfad als Zeichenkette (der Text, durch den ersetzt wird)
    newFilePath = "Pfad\\Zu\\Neuer\\Excel\\Datei.xlsx"
    
    ' Setzen Sie die Variable auf die PowerPoint-Präsentation
    Set pptPresentation = ActivePresentation
    
    ' Durchlaufen Sie jede Folie in der Präsentation
    For Each pptSlide In pptPresentation.Slides
        ' Durchlaufen Sie jede Form in jeder Folie
        For Each pptShape In pptSlide.Shapes
            ' Ermitteln Sie, ob die Form ein verknüpftes Objekt oder ein verknüpftes Bild ist
            If pptShape.Type = msoLinkedPicture Or pptShape.Type = msoLinkedOLEObject Or pptShape.Type = msoLinkedChart Then
                ' Verwenden Sie Replace, um den alten Dateipfad durch den neuen Dateipfad zu ersetzen
                pptShape.LinkFormat.SourceFullName = Replace(LCase(pptShape.LinkFormat.SourceFullName), LCase(oldFilePath), newFilePath)
            End If
        Next
    Next
    
    ' Aktualisieren Sie die Verknüpfungen
    pptPresentation.UpdateLinks
End Sub