Mahlzeit!

Ich möchte gerne per VBA in der ersten freien Spalte Formeln einfügen.

Zunächst ermittle ich die erste freie Spalte wie folgt:

Dim LCol As Integer
Set Rng = ActiveCell.CurrentRegion
Debug.Print Rng.Address
LCol = Rng.Columns(Rng.Columns.Count).Column

Nunmehr sollen in dieser Spalte die vorherigen Werte saldiert werden.

ActiveSheet.Cells(2, LCol) = "=Cells(2 - 1, LCol-1) + Cells(2, LCol-1)"

Dim Wiederholungen As Integer
For Wiederholungen = 3 To 10

ActiveSheet.Cells(Wiederholungen, LCol) = "=Cells(Wiederholungen - 1, LCol-1) + Cells(Wiederholungen, LCol-1)"

Next

Leider funktioniert dieser Code nicht.
Wo ist mein Denkfehler?

vereinfachtes Beispiel:
a1: 20
a2: 30
a3: 50
In B2 soll die Formel =A1+a2 (--> B2: 50) bzw.
in b3 die Formel =A3+b2 (--> B3: 100)
usw. stehen.

Vielen Dank für die Unterstützung!

Tom