Hallo liebe Exel-Profis,

ich bin VBA recht unerfahren und möchte einen vorhandenen VBA-Code insoweit ändern damit beim Kopieren einer Zelle die Zellenbezüge entsprechend angepasst werden.
Das heißt wenn ich ich in Zelle A5 einen Namen eintrage, der sich auf ein Tabellenblatt bezieht dann sollen sich die entsprechenden Zellenbezüge für das Tabellenblatt sich ändern.
Hier der VBA-Code den ich für das Kopieren verwende:
Sub Tabellenblatt_erstellen()
'Aktuelle Zeile kopieren, unterhalb Zeile einfügen und Inhalte in Zellen ohne Formel löschen
Sheets("1. Leistungsnachweis").Select
Range("A4:T4").Select
Dim Zelle As Range
ActiveCell.EntireRow.Copy
Cells(ActiveCell.Row + 1, 1).Insert Shift:=xlDown
For Each Zelle In Range(Cells(ActiveCell.Row + 1, 1), Cells(ActiveCell.Row + 1, 255).End(xlToLeft))
If Not Zelle.HasFormula Then
Zelle.ClearContents
End If
Next Zelle
Cells(ActiveCell.Row + 1, 1).Select


End Sub

Folgende Bezüge sollen sich ändern:
="Name"!J3
="Name"!G23
="Name"!K3
="Name"!L3
="Name"!I3
="Name"!C23
="Name"!D23
="Name"!E23
="Name"!F23

Vielen Dank für eure Hilfe!

Gruß
Raimund