Clever-Excel-Forum

Hallo liebe Excel-Community Sleepy

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

Hallo Selina,

Zitat:Das ist mein Makro

[ Bild bitte als Datei hochladen! ]

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

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.

Hoi Günter,

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

Hola,

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

Gruß,
steve1da

Wie kann ich das bewerkstelligen ?

Hi Selina,

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

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

Hi Elex !

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

Hab noch einen schönen Tag.

LG

Selina1

WillWissen

Selina1

steve1da

Selina1

WillWissen

Elex

Selina1