Repeat Action Makro

[Selina1]

Hallo liebe Excel-Community

Ich habe ein Problem, das ist wie folgt:

---

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 von F7 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.
Ich weiss leider nicht wie man so etwas mit VBA bewerkstelligt.
Ich hoffe sehr, dass Ihr mir helfen könnt.


Lieber Gruss Selina

[WillWissen]

Hallo Selina,

Das ist mein Makro

[ Bild bitte als Datei hochladen! ]

sogar die Forensoftware hat erkannt, dass Bilder in der Regel nicht zur Hilfe taugen.

Du kannst dein Makro hier hochladen. Entweder mit einem Tool (lies mal bitte: https://www.clever-excel-forum.de/Thread...einstellen) oder du fügst deinen kopierten Code mit Codetags hier ein. Die Codetags findest du hinter dem 5. Schalter von rechts in der zweiten Iconleiste.

Ok - deine Bearbeitung und mein Beitrag haben sich überschnitten.

[Selina1]

Hoi Günter,

Danke für die Hilfe, habs jetzt mal hingeschrieben :19:

[steve1da]

Hola,

verlinkst du bitte deine Fragen in den verschiedenen Foren untereinander?
Danke.

Gruß,
steve1da

[Selina1]

Wie kann ich das bewerkstelligen ?

[WillWissen]

Hi Selina,

kopiere die URL aus deiner Browserleiste und füge sie in den jeweils anderen Foren als Beitrag ein.

[Elex]

Hi

evtl. noch etwas Anpassen, aber im Prinzip so.

Code:

Dim i As Long
For i = 7 To Range("D2").Value
Cells(i, 19).Value = Application.WorksheetFunction.Average(Range("F7:F" & i))
Next i

Gruß Elex

[Selina1]

Hi Elex !

Danke Dir vielmals, das ist die Lösung   :18:

Hab noch einen schönen Tag.

LG