Also, das hier war das aufgezeichnete Makro...
Sub MW_berechnen()
'
' MW_berechnen Makro '
Range("J2").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R2C6:R13C6)"
Range("J2").Select
Selection.AutoFill Destination:=Range("J2:J13"), Type:=xlFillDefault
Range("J2:J13").Select
Range("K2").Select
ActiveCell.FormulaR1C1 = "=RC[-5]/RC[-1]"
Range("K2").Select
Selection.AutoFill Destination:=Range("K2:K13"), Type:=xlFillDefault
Range("K2:K13").Select
End Sub
und das hier mein kläglicher Versuch, es für mehrere Zellen fortzusetzten.
Sub MW_berechnen()
'
Dim i As Integer
For i = 2 To 37 Step 12
Cells(i, 10).Select
'Die Werte für den Mittelwertstehen in Spalte F, Ausgabe in Spalte J
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
|