Formel erweitern in Schleife
06.04.2003 20:00:09
Frank
Ich habe in einer Tabelle folgende Zahlen stehen:
A..... B
1..... 20
2..... 45
1..... 10
Mit folgendem Code habe ich bis anhin die Summe A1*B1 + A2*B2 + A3*B3
berechnet:
For IZ = 1 To AZ
ActiveCell= ActiveCell.Value + ActiveCell.Offset(-IZ, -1).Value * ActiveCell.Offset(-IZ, 0).Value
Next
AZ ist die Anzahl Zeilen, ermittelt mit Rows.Count
Damit sich die Summe automatisch anpasst, möchte ich nun die Formel in die Zellen schreiben:
AktiveCell.FormulaR1C1 = "=A1*B1 + A2*B2 + A3*B3"
Wie kann ich dies am besten tun ?
Gruss Frank