Hallo zusammen,
ich habe über mehrere Spalten Messwerte und möchte für jede Spalte Mittewert und Standardabweichung berechnen lassen. Gibt es eine Möglichkeit, dass ich die Funktionen nur für die erste Spalte eingebe und dann nach rechts "ziehe"?
Range("A3036").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-3002]C:R[-1]C)"
' hier nach rechts "ziehen"
Range("A3037").Select
ActiveCell.FormulaR1C1 = "=STDEV.P(R[-3003]C:R[-2]C)"
'hier nach rechts "ziehen"
Range("A6043").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-3002]C:R[-1]C)"
'hier nach rechts "ziehen"
Range("A6044").Select
ActiveCell.FormulaR1C1 = "=STDEV.P(R[-3003]C:R[-2]C)"
'hier nach rechts "ziehen"
Ich habe einmal den Ansatz eingefügt, wie ich mir das vorgestellt hatte. Da ich mehrere Wertebündel habe, die jeweils 3001 Zeilen lang sind und das runter bis 60500 Zeilen geht, wäre es sehr viel einfacher das pro Wertebündel nur einmal zu machen, als für jede Spalte in jedem Bündel einzeln. Wäre super, wenn mir da jemand weiterhelfen könnte!
Gruß
skba
|