Office: VBA Summe bilden

Hallo zusammen,
in meiner per VBA generierten Tabelle mit unterschiedlicher Anzahl Zeilen möchte ich in Spalte D die Summe bilden, als von D1 bis Dx.
Meine Formel bei 12 Zeilen: ActiveCell.FormulaR1C1 = "=SUM(R[-12]C:R[-1]C)".
Wie kann ich anstatt R[-12] immer Zelle D1 ansprechen?
Wer kann mir bitte helfen? Danke schon mal.

Wolfisch

 

Hi,

1. warum VBA?
2. warum eine Formel, statt direkt das Ergebnis eintragen?

Code:

ActiveCell.Formula = "=SUM(D1:D" & ActiveCell.Row - 1 & ")"

 

Vielen Dank Edgar, funktioniert.
Ich habe einen Code gestrickt, der Daten aus einem PDF-Dokument holt. Sie Summe dient zur Kontrolle.

Gruß Wolfisch

 

Hi,
die korrekte Schreibweise im R1C1-Format wäre

Code:

ActiveCell.FormulaR1C1 = "=SUM(R1C:R[-1]C)"

Das bekommst du übrigens sehr leicht selbst raus. Schreibe dazu in z.B. D10 die Formel =SUMME(D$1:D9) wichtig ist dabei das $-Zeichen, mit dem du dafür sorgst, dass dieser Bestandteil der Formel beim Ziehen/Kopieren fest bleibt. Jetzt gibst du im Direktfenster den Befehl ?Range("D10").FormulaR1C1 ein und erhältst die korrekte R1C1-Schreibweise.

Ansonsten solltest du dir überlegen ob du auf solche Konstrukte wie ActiveCell nicht doch besser verzichtest.

 

Danke Helmut für den Tipp, werde mich mal damit beschäftigen.

Und der Code funktioniert einwandfrei.

Gruß Wolfisch