Relativer Zellbezug im Makro mit Variable

[Jürgen Graf]

Wer kann mir bei einem kleinen Problem helfen.
Ich habe leider noch nicht viel Erfahrung mit VBA, aber vielleicht
ist es ja ganz einfach.

Ich möchte den Mittelwert der Werte von Spalten bestimmen.
Die Anzahl der Zeilen ist dabei Variabel.
Ich kenne die Zeilenanzahl und möchte von der ersten Zeile
bis zur Zeile oberhalb der aktiven Zelle rechnen.

Die Aufzeichnung des Makros lieferte folgendes:
ActiveCell.FormulaR1C1 = "=AVERAGE(R(-72)C:R[-1]C)"

Die 72 ist der Wert, den ich gern mit einer Variablen ersetzen möchte.
Folgendes funktioniert leider nicht:
ActiveCell.FormulaR1C1 = "=AVERAGE(R(-nAnzahl)C:R[-1]C)"

Wie könnte man das lösen?

[Alexander Wolff]

Post by Jürgen Graf
ActiveCell.FormulaR1C1 = "=AVERAGE(R(-72)C:R[-1]C)"

ActiveCell.FormulaR1C1 = "=AVERAGE(R(-" & Variable & ")C:R[-1]C)"

[Jürgen Graf]

Hallo Alexander,

besten Dank für die schnelle Hilfe.

Ich mußte nur noch aus:
ActiveCell.FormulaR1C1 = "=AVERAGE(R(-" & Variable & ")C:R[-1]C)"

folgendes machen:
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-" & Variable & "]C:R[-1]C)"

dann hat's geklappt.
War das richtig?
Vorher gab's noch nen Laufzeitfehler 1004.

[Alexander Wolff]

Post by Alexander Wolff
ActiveCell.FormulaR1C1 = "=AVERAGE(R(-" & Variable & ")C:R[-1]C)"
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-" & Variable & "]C:R[-1]C)"
dann hat's geklappt. War das richtig?
Vorher gab's noch nen Laufzeitfehler 1004.

Klar. Happich ganich gesehn.