ich möchte die Formel für das Teilergebnis in VBA immer bis zur letzten Zeile (die sich verändert) anpassen. Ich bekomme aber die Variable nicht in die Formel umgesetzt. Nachfolgend die Formel und einer meiner Versuche, die nicht funktionieren.
Bitte Hilfe.
Danke im Voraus.
Peter
lar = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
MsgBox lar
Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[1]C:R[9]C)"
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,"R[1]C", "R" & lar)