Ich schreibe in eine Zelle die Summen-Formel b4 bis z.B. B9 - funktioniert.
Wenn ich nun eine gesamte Zeile zB. 5 herausschneide und unten einfüge, dann stimmt die Formel in der Zelle nicht mehr.
Sub test() '--Sinngemäß--
Zeilenb = 3
letztezeile = wks1.Cells(Rows.Count, 1).End(xlUp).Row
Set wks = ThisWorkbook.Sheets("Tabelle1")
wks.Cells(Zeilenb - 1, 2).Formula = "=sum(b4:b" & Zeilenb - 4 & ")"
wks.Rows(i).Cut
wks.Rows(letztezeile + 1).Insert shift:=xlDown
End Sub
Wie kann diese mit VBA angepasst werden?
Danke im Voraus.