Sortierte, dynamische Summenbildung

Hallo,
dies ist mein erster Beitrag hier im Forum und ich hoffe ihr könnt mir bei meinem Problem in Excel weiterhelfen.
Mein Ziel ist es die Werte aus Spalte B mit über 8700 Einträgen sortiert zu addieren. Dabei ist das Start- und Endkriterium der Summe ein Wechsel des Vorzeichens:
Das bedeutet, dass alle Werte mit negativen Vorzeichen so "lange" addiert werden sollen bis ein positiver Wert in der Liste auftaucht. Die Summe der negativen Werte wird ausgegeben und eine neue Summe beginnt nun alle nachfolgenden positiven Werte zu addieren, bis wiederum ein negativer Wert auftaucht. Die positive Summe wird ausgegeben und eine neue Summe addiert alle negativen Werte und so weiter.
In der angehängten Exceldatei haben ich bereits beispielhaft begonnen die Summen zu addieren um das Prinzip zu verdeutlichen. Die Reihenfolge der sich abwechselnden Summen ist bei der ganzen Sache ziemlich wichtig.
Im besten Fall sollte die sortierten Summen wie in beispielhaft in Spalte E aufgelistet werden. Also ohne Leerzellen.
Hier findet ihr ein Auszug meiner Daten, sowie nocheinmal grafisch verdeutlicht wie Liste am Ende aussehen soll:
https://www.herber.de/bbs/user/121816.xlsx
Ich würde mich über einen Lösungsvorschlag sehr freuen, da ich mit meine Excelkenntnissen am Ende bin.
Danke schonmal im Voraus.
Viele Grüße,
Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Teilsummen_PM() Dim LR As Double, i As Double, Z As Integer, L As Double L = 2 'Startzeile Z = 2 'Bereichstart LR = Cells(Rows.Count, 2).End(xlUp).Row 'letzte Zeile der Spalte 'reset Cells(2, 4).Resize(LR, 2).ClearContents For i = 2 To LR If Sgn(Cells(i, 2)) <> Sgn(Cells(i + 1, 2)) Then 'Vorzeichenwechsel suchen Cells(Z, 4) = WorksheetFunction.Sum(Range(Cells(Z, 2), Cells(i, 2))) Cells(L, 5) = Cells(Z, 4) L = L + 1 Z = i + 1 End If Next End Sub

Sub Teilsummen_PM() Dim TB, SP As Integer, LR As Double, i As Double, Z As Integer, L As Double, Off As Integer '**** Set TB = ThisWorkbook.Sheets("Tabelle1") SP = 2 ' Spalte mit den wechselnden Vorzeichen Off = 2 ' Spalten dahinter L = 2 'Startzeile für Gesamtsumme Z = 2 'Bereichstart '***** With TB LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte 'reset .Cells(2, SP).Offset(0, Off).Resize(LR, 2).ClearContents For i = 2 To LR If Sgn(.Cells(i, SP)) <> Sgn(.Cells(i + 1, SP)) Then 'Vorzeichenwechsel suchen .Cells(Z, SP).Offset(0, Off) = WorksheetFunction.Sum(.Range(.Cells(Z, SP), .Cells(i, SP))) .Cells(L, SP).Offset(0, Off + 1) = .Cells(Z, SP).Offset(0, Off) L = L + 1 Z = i + 1 End If Next End With End Sub

Beliebteste Forumthreads (12 Monate)

Sortierte, dynamische Summenbildung

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread