Danke für Deine Antwort und Sorry für die mühsame Fragestellung, vielleicht ist es so klarer das ist mein Makro:
Private Sub CommandButton2_Click()
'Repeat Action
Dim i As Integer
For i = 6 To Range("D2")
Cells(i,19).Value = Application.WorksheetFunction.Average("F7:F")
Next i
End Sub
Nun folgendes: In D2 steht eine Zahl z.Bsp. 50. Diese 50 bedeutet Zeile F50. Also soll der Average bis zu F50 gebildet werden und zwar soll auch der Average von F49,F48,F47 berechnet und ersichtlich sein. Alle Averages sollen dann in der Spalte S --> Cells(i,19) stehen. Würde bei D2 100 stehen, das gleiche Prozedere usw. Verstehst Du was ich meine ?
Lieber Gruss Selina |