Sub
MW_berechnen()
Dim
i
As
Integer
For
i = 2
To
37
Step
12
Cells(i, 10).
Select
ActiveCell.FormulaR1C1 =
"=AVERAGE(RiC6:Ri+11C6)"
Cells(i, 10).
Select
Selection.AutoFill Destination:=Cells(
"i, 10:i + 11, 10"
), Type:=xlFillDefault
Cells(
"i, 10: i+11, 10"
).
Select
Cells(i, 11).
Select
ActiveCell.FormulaR1C1 =
"=RC[-5]/RC[-1]"
Cells(i, 11).
Select
Selection.AutoFill Destination:=Cells(
"i, 11:i+11, 11"
), Type:=xlFillDefault
Cells(
"i, 11:i+11, 11"
).
Select
Next
i
End
Sub