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