Gleitenden Mittelwert berechnen
12.08.2013 14:22:05
TheBeginner
mit folgenden Code würde ich gerne den gleitenden Mittelwert automatisiert bei einer großen Anzahl an Dateien eintragen lassen.
Cells(0.5 * glmw + 1.5, 2).Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-((glmw-1)/2)]C[-1]:R[((glmw-1)/2)]C[-1])"
Cells(0.5 * glmw + 1.5, 2).Select
Selection.AutoFill Destination:=Range("Cells(0.5 * glmw + 1.5, 2), Cells(6555,2)")
Die Variable glmw wird per Hand auf nicht gerad-zahlige ganze Zahlen festgelegt. Wenn nun die zweite Zeile des Codes aufgerufen wird, kommt eine Fehlermeldung. Hätte bitte jemand einen Tip für mich, wie man das Problem lösen könnte?
Vielen Dank bereits im Voraus an alle, die sich die Mühe machen, mir helfen zu wollen.
Gruß
Richard