Office: Zeile mit Zwischensumme automatisch einfügen

Hallo liebe Helfer,
habe ein Problem mit einer Liste und finde keinen Ansatz um dieses Problem zu lösen.

Tabelle 1: ist die vorh. Liste.

Tabelle 2: so soll die fertige Liste sein.
Der Wert SUMME PUNKTE darf den Wert 600 nicht überschreiten. Sobald dieser Wert erreicht
wird, soll eine neue Zeile (Summe Punkte) eingefügt werden.
Die restlichen Zeilen mit Werten sollen nun unterhalb der eingefügten Zeile einsortiert werden.
und die Summe in SUMME ZUSÄTZLICHE PUNKTE errechnet werden.

Ich hoffe die Erklärung ist einigermaßen verständlich, zum besseren verstehen werde ich die
Datei hochladen.

Ist das zu lösen, kann mir jemand helfen?

Viele Grüße
ponte

Ich arbeite mit Office 200

 

Hallo!

Zum ZeilenEINFÜGEN brauchst du zwingend VBA; das ist mit Formeln nicht möglich.
Aber vielleicht reicht ja auch schon die Anzeige des Zwischenergebnisses in der Spalte E.
Falls ja, dann schreibe diese Formel in Tabelle1!E2 und kopiere sie runter bis E51:

=WENN(SUMME(D$2:D3)-SUMME(E$1:E1)>600;SUMME(D$2:D2)-SUMME(E$1:E1);"")

 

Hallo Schatzi,
vielen Dank für die schnelle Antwort. Leider ist dein Vorschlag nicht das richtige.
Ich versuche es besser zu erklären.

Nach Eingabe aller Posten (in Spalte A) soll die gesamte Liste absteigend sortiert werden (Spalte D).
Sobald die Summe 600 erreicht ist, soll eine neue Zeile ZWISCHENSUMME eingefügt werden.
Unterhalb dieser Zeile sollen die restlichen Zeilen erscheinen.
Ist das zu machen? Evtl. mit Makro oder VBA.
Viele Grüße
ponte

 

Hallo!

Das teste doch mal diesen Code:

Code:

Sub Summe()
Dim z&
z = 3
Do Until WorksheetFunction.Sum(Range("D2:D" & z)) >= 600
z = z + 1
Loop
Rows(z).Insert Shift:=xlShiftDown
Cells(z, 3) = "SUMME PUNKTE"
Cells(z, 4) = WorksheetFunction.Sum(Range("D2:D" & z - 1))
End Sub

 

Hallo!

habe den code eingegeben-tut sich nichts.
Was mache ich falsch?

schöne Grüße
ponte

 

Hallo!

Hast du ihn auch gestartet (Alt+F8)?

 

Hallo!
scheint zu funktionieren.
Muß es aber noch genauer testen.
Melde mich dann spüter nochmal.

Vielen Dank
ponte

 

Hallo!

Habe nun endlich Zeit gefunden die Tabelle zu testen.
Leider ist es nocht nicht so wie ich mir das vorgestellt habe.

Bevor die neu Zeile eingefügt wird, müßte die Liste sortiert werden, daß so viele Positionen wie möglich im oberen bereich stehen.
Bei der Musterdatei müßen z.B. die Werte in Zeile 42 im oberen Bereich
stehen, dass der Wert SUMME PUNKTE nicht 539 sondern 587 ist.

Ist das üperhaupt möglich?

Viele grüße
ponte

 

Hallo!

Sortieren kannst du über
Menü Daten > Sortieren

 

Hallo!

Das sortieren selbst ist nicht das Proplem.
Ziel der Aufgabe ist:
Dass durch betätigen einer Schaltfläche, eine neue Zeile eingefügt (Zwischensumme) wird.
Die Zwischensumme soll so nah wie möglich die 600er-Grenze erreichen.
Ich hoffe ich konnte mich verständlich ausdrücken.

Viele Grüße
ponte

 

Hallo!

Müsste dann nicht eher die Zeile 46 nach oben geholt werden?

Tut mir leid, aber das ist mir programmiertechnisch zu hoch.
Da gibt's ja Schrilliarden Möglichkeiten...

 

ok!

trotzdem vielen Dank für deine Mühe.

Viele Grüße
ponte