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
|