Zeile mit Zwischensumme automatisch einfügen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Zeile mit Zwischensumme automatisch einfügen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

ponte
Besserwisser

Anmeldedatum: 20.08.2007
Beiträge: 52
Wohnort: sand am main

Verfasst am: 26.01.2008, 11:50

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

Mappe1.xls

Beschreibung:

Download

Dateiname:

Mappe1.xls

Dateigröße:

35 KB

Heruntergeladen:

23 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 26.01.2008, 12:17

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);"")

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

ponte
Besserwisser

Anmeldedatum: 20.08.2007
Beiträge: 52
Wohnort: sand am main

Verfasst am: 28.01.2008, 09:55

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 28.01.2008, 11:13

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

ponte
Besserwisser

Anmeldedatum: 20.08.2007
Beiträge: 52
Wohnort: sand am main

Verfasst am: 28.01.2008, 11:40

Hallo!

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

schöne Grüße
ponte

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 28.01.2008, 11:55

Hallo!

Hast du ihn auch gestartet (Alt+F8)?

ponte
Besserwisser

Anmeldedatum: 20.08.2007
Beiträge: 52
Wohnort: sand am main

Verfasst am: 28.01.2008, 12:20

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

Vielen Dank
ponte

ponte
Besserwisser

Anmeldedatum: 20.08.2007
Beiträge: 52
Wohnort: sand am main

Verfasst am: 30.01.2008, 11:17

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

Mappe1.xls

Beschreibung:

Download

Dateiname:

Mappe1.xls

Dateigröße:

41.5 KB

Heruntergeladen:

14 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 30.01.2008, 11:23

Hallo!

Sortieren kannst du über
Menü Daten > Sortieren

ponte
Besserwisser

Anmeldedatum: 20.08.2007
Beiträge: 52
Wohnort: sand am main

Verfasst am: 30.01.2008, 12:14

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 30.01.2008, 13:00

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...

ponte
Besserwisser

Anmeldedatum: 20.08.2007
Beiträge: 52
Wohnort: sand am main

Verfasst am: 30.01.2008, 13:10

ok!

trotzdem vielen Dank für deine Mühe.

Viele Grüße
ponte

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	falsche Freigaben Word? - Word schlie...	god's disciple	Microsoft Word Hilfe	0	28.11.2008, 18:10
	Zellen Inhalt Automatisch in ein ande...	Serdal	Microsoft Excel Hilfe	1	28.11.2008, 00:42
	2. neue zeile einfügen wenn darüber text	enzo	Microsoft Excel Hilfe	2	27.11.2008, 12:46
	Zeile suchen, wenn gefunden zwei Dati...	cyRus-tC	Microsoft Excel Hilfe	2	22.11.2008, 16:11
	Bei Änderung Datum automatisch einfügen	annewill1234	Microsoft Excel Hilfe	1	19.11.2008, 17:26

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de