Habe eine Excel Tbelle mit 2 Tabellenblätter.

In der zweiten Tabelle ist ein Makro hinterlegt das dieses Tabellenblatt kopiert (Name des neuen Tabellenblattes wird abgefragt).

Jetzt soll sich eine Formel in dem neuen Tabellenblatt auf das alte Tabellenblatt beziehen und das funktioniert nicht. (Rot hinterlegt in der Tabelle)

Sinn: Alle 4-5 Wochen wird ein neues Tabellenblatt angelegt. Das neue Tabellenblatt soll den Kontostand des alten Tabellenblattübernehmen. (grün makiert)

bei 'paste' soll der bezug auf die neue Tabelle (ich wollte vorher den Namen kopieren und genau dort einfügen

Sub BlattKopieren()
'
' Tabellenblatt kopieren und umbenennen
'
Dim strName As String
    strName = InputBox("Name des neuen Blatts:", "Blatt benennen")
    If strName = "" Then
      MsgBox "Leider wurde kein Blattname eingetragen!"
      Exit Sub
    End If
    Sheets("Rechnung vom 15.04.2018").Copy After:=Sheets("Rechnung vom 15.04.2018")
    ActiveSheet.Name = strName
    ActiveSheet.Range("A2") = strName
    MsgBox "Blatt erfolgreich kopiert!"
End Sub

'Auf neues Tabellenblatt springen

Sub TabellenblattAktivieren()
Worksheets("strName").Select

End Sub

'Das neue Tabellenblatt nach hinten verschieben

Sub TabellenblattVerschieben()
ActiveSheet.Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)

End Sub


Sub FormelAendern()

'Auf Voriges Tabellenblatt springen

    On Error Resume Next
    ActiveSheet.Previous.Activate
    On Error Resume Next

'Name des Tabellenblattes kopieren

    Sheets("Rechnung vom 06.03.18 ").Select
    Range("A2").Select
    Selection.Copy

' Wieder auf neues Tabellenblatt springen

Sub TabellenblattAktivieren2()
Worksheets("strName").Select

' Formel anpassen

    Range("I5").Select
    ActiveCell.FormulaR1C1 = _
        "=LOOKUP(2,1/('paste'!R4C2:R49C2&'paste'!R4C3:R49C3='strName'!RC[-7]&'strName'!RC[-6]),'paste'!R5C12:R49C12)"
    Range("I5").Select
    Selection.Copy
    Range("I6:I49").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub