|
Ohh vielen Dank, das ist super Verständlich, dein Code mit einer For / Next Schleife ist natürlich viel eleganter gelöst,
ein paar Sachen sind mir noch etwas unklar, ich habe mal versucht deinen Code mit der For/Next Schleife etwas zu vereinfachen, habe also gewisse Variablen (letzteB) rausgenommen, jetzt läuft die schleife allerdings nicht mehr richtig, es wird nur die der Mittelwert für die ersten beiden Male berechnet, danach geht er aber automatisch aus der Schleife raus (was er ja auch soll wenn man auf das "to" schaut. Wenn ich die "Anzahl" nach to lösche und einfach -3 rechne geht es.
Zur info: meine tabelle hat jetzt 8 zeilen mit überschrift, Zeile A hat als einzige Zeile Inhalt und das sind nur Zahlen.
hier nochmal dein veränderter Code
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | Sub test()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
Dim LetzteA As Long
LetzteA = ws.Cells(Rows.Count, 1).End(xlUp).Row
Dim i As Long
Dim Anzahl As Long
Anzahl = 4
For i = 2 To LetzteA - Anzahl - 2
ws.Cells(1, 2) = Application.WorksheetFunction.Average(ws.Range("A" & i & ":A" & i + Anzahl - 1))
ws.Cells(1, 2).NumberFormat = ("0.0000000")
Next
End Sub
|
wie funktioniert ws.range("B2:C & LetzteA).Clear.Content ? und was meinst du mit Bereich B2:C ?
Beste Grüße Freddy
|