moin
also ich habe folgendes problem: ich habe in einer excel spalte einige tausend werte. von diesen werten muss ich immer wie im beispiel unten die ersten 5 addieren dann springt er auf die zweite zahl und addiert von da an wieder 5 und so weiter. das ganze geht dann bis hin zu additionen mit über 1000 werten. mein problem ist jetzt das bei größeren werten (siehe unten) ich einfach nicht mehr weiter schreiben kann. woran liegt das und wie könnte ich es lösen? bei 529 gehts dann einfach nicht weiter.
danke im voraus.
grüße
Sub kostra()
'Niederschläge einlesen
Dim n As Integer
n = 0
While Cells(2 + n, 2) <> ""
n = n + 1
'Anzahl ausgeben
'Cells(2, 5) = n
Wend
'Felder einlesen
Dim Nied() As Double
ReDim Nied(1 To n) As Double
Dim i As Integer
For i = 1 To n
Nied(i) = Cells(1 + i, 2)
Next i
Dim sum5() As Double
ReDim sum5(1 To n) As Double
'Summen berechnen
For i = 1 To n - 4
sum5(i) = Nied(i) + Nied(i + 1) + Nied(i + 2) + Nied(i + 3) + Nied(i + 4)
Next i
For i = 1 To n
Cells(i + 1, 3) = sum5(i) 'Summen ausgeben
Next i
'Summen berechnen
For i = 1 To n - 359
sum6(i) = Nied(i) + Nied(i + 1) + Nied(i + 2) + Nied(i + 3) + Nied(i + 4) + ....
+ Nied(i + 527) + Nied(i + 528) + Nied(i + 529)
Next i
For i = 1 To n
Cells(i + 1, 25) = sum6(i) 'Summen ausgeben
Next i |