|
Danke mal wieder für die Antwort Torsten,
ja das stimmt, die Schleife soll der Anfang einer größeren berechnung werden, die später noch automatisiert die werte in ein Extra blatt kopieren soll (was jetzt aber erstmal noch nicht so wichtig ist, da der wert noch weiter verarbeitet werden soll), allerdings verstehe ich grundsätzlich nicht was ich tun muss um einen Loop zu bauen der bei den jeweiligen Zeilenzugriffe immer dieie obere zeile um eine Zeile verringert und die untere Zeile um eine Zeile erweitert, das versuche ich in deinem Code zu verstehen, ich denke das hast du in diesem Teil beschrieben richtig?
1 2 3 4 5 | For i = 2 To letzteA - Anzahl - 1
ws.Cells(letzteB + 1, 2) = Application.WorksheetFunction.Average(ws.Range("A" & i & ":A" & i + Anzahl - 1))
ws.Cells(letzteB + 1, 2).NumberFormat = ("0.000")
Next
|
Und warum musst du mit Excel erstmal die letzte Spalte ermitteln?
1 | letzteB = ws.Cells(Rows.Count, 2).End(xlUp).Row
|
Ich habe selber versucht einen Code zu bauen, mit Makroaufzeichnungen und Youtube Tutorials, warum kann ich nicht einfach in der Zeile für die Average Funktion das X für den Loop einfügen, sodass er die Zeile des Durchschnitts automatisch verändert?
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | Sub AverageHelp()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
Dim x As Variant
x = 1
Do
x = x + 1
Range("A20").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-18-x]C:R[-15-x]C)"
Range("A21").Select
Loop Until x > 18
End Sub
|
Viele Fragen.. sorry dafür
MfG Freddy
|