|
Hallo Selina,
vorweg als Hinweis: Wenn du in diesem Forum mit dem Internet Explorer schreibst, zieht der alles in einem Textblock zusammen. Nutze hir daher besser einen anderen Browser.
Ich bin nicht sicher, ob ich jetzt richtig verstanden habe was du möchtest, zumal du die Schleife ab Zeile 6 beginnen lässt aber in deinem Code für die Formel F7 verwendest. Ich habe das auf F6 angepasst.. Ich gehe auch davon aus, dass die Mittelwerte in der richtigen Reihenfolge in die Tabelle eingetragen werden sollen. Also der Mittelwert für F6 bis F10 in S10 und nicht in S46, wenn in D2 50 eingetragen ist. Das funktioniert folgendermaßen: (Ich habe alles auf Cells umgeschrieben und gehe davon aus, dass es sich um einen ActiveX Button auf einer Tabelle handelt)
Private Sub CommandButton2_Click()
'Repeat Action
Dim i As Integer
For i = 6 To Cells(2, 4).Value
Cells(Cells(2, 4).Value + 6 - i, 19).Value = Application.WorksheetFunction.Average(Cells(6, 6), Cells(Cells(2, 4).Value + 6 - i, 6))
Next i
End Sub
|