Die letzten 210 Werte (anhand des Datums) addieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hansueli,
vielen Dank für Deinen Lösungsvorschlag. Es ist aber noch nicht ganz die Lösung, die ich suche, denn ich muß die Summe der Werte (0 oder 1) ermitteln. Ist eine Zelle leer wird sie nicht zu den 210 Werten dazugezählt.
Anbei ein Beispiel, um das Problem noch einmal darzustellen:
Die letzten 13 Werte kommen aus dem Zeitraum 13.1.06-23.12.05. Der zu ermittelnden Wert ist 1.
Erhält einen Tag später der 16.01.06 auch den Wert 0 oder 1 wird bei der Betrachtung der letzten 13 Werte der 23.12.05 nicht mehr berücksichtigt.
22.12.2005
23.12.2005 1
27.12.2005
28.12.2005
29.12.2005 0
30.12.2005 0
2.1.2006 0
3.1.2006 0
4.1.2006 0
5.1.2006 0
6.1.2006 0
9.1.2006 0
10.1.2006 0
11.1.2006 0
12.1.2006 0
13.1.2006 0
16.1.2006
17.1.2006
Gruß
Michael

Hallo, Michael,
als Grundgerüst habe ich eine VBA-Standardmodul-Prozedur geschrieben (ohne durchgreifende Prüfung!), die alle Bereichzeilen (ab Zeile 9 bis aktuelles Datum) durchläuft und jeweils die Summe der letzen 210 gültigen Werte der Spalte B in die Spalte C in die betreffende Referenzzeile Zeile schreibt.

Option Explicit
Const DATEN = "Tabelle1"
Const FIRSTROW = 9
Const ANZSUM = 210
Public Sub Sum210()
Dim rngR As Range, MaxRow As Long, Datum As Date
Dim r As Long, rIndex As Long, sum As Double, sumV As Boolean
Datum = Date
MaxRow = Cells(Rows.Count, 1).End(xlUp).Row
sumV = True
For Each rngR In Range("A" & ANZSUM - 1 + FIRSTROW & ":A" & MaxRow)
sum = 0
With rngR
rIndex = 0
If .Value > Datum Then
sumV = False
Else
r = 0
Do
If IsNumeric(.Offset(-rIndex, 1)) Then
sum = sum + .Offset(-rIndex, 1)
r = r + 1
End If
rIndex = rIndex + 1
Loop Until .Row - rIndex < FIRSTROW Or r = ANZSUM
End If
.Offset(0, 2) = IIf(sumV And r = ANZSUM, sum, "")
End With
Next rngR
End Sub

Von der Programmfolge her sollte damit das gewünschte Ergebnis erzielt werden. Das Programm kann auch so abgeändert werden, dass nur die aktuelle Datumszeile ausgewertet wird und nicht alle Daten ab Zeile neun. Dazu ist die Schleife über die Range-Zeilen durch den Einzelzeilenbezug zu ersetzen.
Gruß,
Uwe

Beliebteste Forumthreads (12 Monate)

Die letzten 210 Werte (anhand des Datums) addieren

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

7 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Die letzten 210 Werte (anhand des Datums) addieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

7 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread