Schönen Nachmittag,

ich habe folgendes Problem zu lösen:
Lasse mir ein Tabellenblatt via VBA-Code von einen anderen Kopieren in meine aktuelle Arbeitsmappe (löscht altes Tabellenblatt und ersetzt es mit neuen) - Name bleibt gleich= Stellenplan2025

Dadurch löscht es mir leider alle Bezüge in den anderen Tabellenblätter.
Diese möchte ich nun mit suchen und ersetzen wieder korrigieren.
suche nach #BEZUG und ersetze mit Stellenplan2025
funktionier wenn ich es manuell mache super (STRG+F...)

Leider nicht als Makro oder VBA-Code:
z.B.:
Sub ErsetzeBezugInFormeln()
Dim ws As Worksheet
Dim zelle As Range

' Setze das Blatt "4 Personalplanung" als Ziel
Set ws = ThisWorkbook.Worksheets("4 Personalplanung")

' Schleife durch jede Zelle mit einer Formel im Blatt
For Each zelle In ws.UsedRange
If zelle.HasFormula Then
' Ersetzen in der Formel und Fehlerbehandlung
On Error Resume Next
zelle.Formula = Replace(zelle.Formula, "#BEZUG!", "Stellenplan2025")
On Error GoTo 0
End If
Next zelle

' Benachrichtigung
MsgBox "Alle #BEZUG!-Fehler wurden in 'Stellenplan2025' umgewandelt.", vbInformation
End Sub

Danke für eure Hilfe.
SG Andreas