Summieren von gleichen Zeilen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Summieren von gleichen Zeilen

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

Gehe zu Seite 1, 2 Weiter

Autor

Nachricht

Ariane Eberwein
Newbie
Newbie

Anmeldedatum: 15.06.2008
Beiträge: 9

Verfasst am: 15.06.2008, 23:28

Hallo,
in einer Excel Datei mit mehr als 10.000 Zeilen will ich die jeweils identischen Zeilen summieren. Siehe die stark gekürzte Datei als Model anbei. Wie lautet die entsprechenden Formel? Herzlichen Dank von einem Excel Laien für die Hilfe im voraus! :-)

12_Dezember 2007-test2.xlsx

Beschreibung:

Download

Dateiname:

12_Dezember 2007-test2.xlsx

Dateigröße:

9.5 KB

Heruntergeladen:

21 mal

12_Dezember 2007-test2.xlsx

Beschreibung:

Download

Dateiname:

12_Dezember 2007-test2.xlsx

Dateigröße:

9.5 KB

Heruntergeladen:

18 mal

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 450
Wohnort: Fridingen an der Donau

Verfasst am: 16.06.2008, 07:15

Hallo,

kannst du die Dateien mal nur als xls Hochladen?
Da es auch noch Helfer gibt die kein Excel 2007, erhört das deine Chancen auf eine Lösung enorm.

Gruß

Ariane Eberwein
Newbie
Newbie

Anmeldedatum: 15.06.2008
Beiträge: 9

Verfasst am: 16.06.2008, 07:37

Hallo,

gerne hier ist sie. Vielleicht noch eine Präzisierung zu meiner Frage. Ich möchte die jeweils identischen Zeilen in eine zusammenfassen und eine Summe des Betrags erhalten.

Tausend Dank für Eure Unterstützung.

12_Dezember 2007-test2.xls

Beschreibung:

Download

Dateiname:

12_Dezember 2007-test2.xls

Dateigröße:

20 KB

Heruntergeladen:

19 mal

Ariane Eberwein
Newbie
Newbie

Anmeldedatum: 15.06.2008
Beiträge: 9

Verfasst am: 16.06.2008, 07:37

12_Dezember 2007-test2.xls

Beschreibung:

Download

Dateiname:

12_Dezember 2007-test2.xls

Dateigröße:

20 KB

Heruntergeladen:

26 mal

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 450
Wohnort: Fridingen an der Donau

Verfasst am: 16.06.2008, 07:45

Hallo,

liegen die gleichen Zeilen aneinander an. Oder kann es auch sein das z.B Zeile 1 gleich Zeile 100 ist?

Gruß

Ariane Eberwein
Newbie
Newbie

Anmeldedatum: 15.06.2008
Beiträge: 9

Verfasst am: 16.06.2008, 09:25

Hallo,

über einen "sort" habe ich alle Zeilen, die identisch sind untereinander.

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 450
Wohnort: Fridingen an der Donau

Verfasst am: 17.06.2008, 17:49

Hallo,

also du kannst den Code hier verwenden

Code:

Sub schse()
Dim zell1 As String
Dim zell2 As String
Dim zähler As Integer
Do Until zähler > 50
zähler = zähler + 1
For i = 1 To 10000
For ii = i + 1 To 10
zell1 = Cells(i, 1) & Cells(i, 2) & Cells(i, 3) & Cells(i, 4) & _
Cells(i, 5) & Cells(i, 6) & Cells(i, 7) & Cells(i, 8) & Cells(i, 9)
zell2 = Cells(ii, 1) & Cells(ii, 2) & Cells(ii, 3) & Cells(ii, 4) & _
Cells(ii, 5) & Cells(ii, 6) & Cells(ii, 7) & Cells(ii, 8) & Cells(ii, 9)
If zell1 = zell2 Then
Cells(i, 10).Value = Cells(i, 10).Value + Cells(ii, 10).Value
Rows(ii).Delete
End If
Next ii
Next i
Loop
End Sub

In ein Modul und mal Starten.
kann sein das du ihn 2 mal ausführen musst. Ist es möglich das Zellen mehr als 10mal gleich sind?

Gruß

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 435
Wohnort: Kiel

Verfasst am: 18.06.2008, 07:58

Ariane Eberwein hat Folgendes geschrieben:

alle Zeilen, die identisch sind untereinander.

Ok, dann meine Lösung:

Code:

Option Explicit

Const listrow = 1 'zeile listenanfang quelle --> überschrift
Const listcol = 1 'listenspalte mit lückenlosen werten bis ende
Const testcol1 = 1 '1. spalte der werte zum vergleichen
Const testcol2 = 9 'letzte spalte der werte zum vergleichen
Const sumcol = 10 'spalte der zu addierenden werte

Const targetsheet = "Sheet2" 'zielblatt für zusammenfassung
Const targetrow = 1 'zeile listenanfang ziel (zusammenfassung)

Private Sub B_Zusammenfassung_Click()

Dim w1, w2
Dim y1 As Long: Dim x1 As Long: Dim tst1 As String
Dim y2 As Long
Dim key1 As String: Dim key2 As String

Set w1 = ActiveSheet
Set w2 = Worksheets(targetsheet)

w2.Cells.ClearContents
w2.Cells.ClearFormats
w2.Cells.Font.ColorIndex = xlColorIndexAutomatic
w2.Cells.Interior.ColorIndex = xlColorIndexNone
w2.Cells.Borders.LineStyle = xlLineStyleNone
w2.Columns.ColumnWidth = 1

y2 = targetrow

y1 = listrow
w1.Rows(y1).Copy Destination:=w2.Rows(y2) 'überschrift kopieren

y1 = y1 + 1 'nächste zeile --> listenanfang
x1 = listcol
w1.Activate: w1.Cells(y1, x1).Activate 'cursor positionieren
tst1 = Trim$(w1.Cells(y1, x1).Value) 'prüfwert für listenende
While (tst1 <> "") 'bis listenende abarbeiten
y2 = y2 + 1: w1.Rows(y1).Copy Destination:=w2.Rows(y2) 'zeile in zusammenfassung kopieren
key1 = "": For x1 = testcol1 To testcol2 'eine art "hash" der aktuellen zeile aufbauen
key1 = key1 & Trim$(w1.Cells(y1, x1).Value)
Next x1

key2 = "": For x1 = testcol1 To testcol2 '"hash" der nächsten zeile aufbauen
key2 = key2 & Trim$(w1.Cells(y1 + 1, x1).Value)
Next x1
While (key2 = key1) 'bei gleichheit: zusammenaddieren/addieren
w1.Cells(y1 + 1, sumcol).Copy: w2.Cells(y2, sumcol).PasteSpecial operation:=xlPasteSpecialOperationAdd
y1 = y1 + 1
key2 = "": For x1 = testcol1 To testcol2: key2 = key2 & Trim$(w1.Cells(y1 + 1, x1).Value): Next x1
Wend

y1 = y1 + 1: x1 = listcol 'nächste zeile, spalte bleibt gleich
w1.Activate: w1.Cells(y1, x1).Activate
tst1 = Trim$(w1.Cells(y1, x1).Value)
Wend

w2.Columns.AutoFit

Application.CutCopyMode = False

End Sub

Dies addiert gleiche Zeilen zusammen und stellt das Ergebnis auf einem Extra-Blatt dar. In diesem Fall muß das Blatt bereits existieren (sheet2, siehe targetsheet) und wird am Anfang der Zusammenfassung gelöscht (also der Inhalt nur, meine ich). Das erledigt der kleine Block ab "w2.cells.clearcontents". Alternativ könnte natürlich auch ein komplett neues Blatt erstellt werden (sheets.add, name, ...).

Die Routine geht die Liste in sehr konservativer Manier durch. Es wird ein Startpunkt links oben gesetzt (y1,x1) und ab da zeilenweise die Liste solange abgearbeitet, bis in y1,x1 ein leerer Wert gefunden wird. Wichtig dabei ist, daß listcol auf eine Spalte verweist, in der die Werte lückenlos bis ans Ende der Liste vorhanden sind.

Für jede Zeile wird dann geprüft, ob die Werte in der Folgezeile gleich sind. Dazu wird aus den Spalten test1col1 bis testcol2 eine Art "hash" gebildet und miteinander verglichen. Sind die Zeilen gleich, wird aufaddiert, ansonsten wird die komplette Zeile in eine neue Zeile der Zusammenfassung kopiert und das Spielchen geht von vorne los.

Ich hab mal im Anhang die Zeilen-Blöcke, die zusammengefaßt werden sollen, abwechselnd blau/grün eingefärbt, damit man in der Zusammenfassung etwas leichter erkennen kann, ob das Ergebnis stimmt.

Ich hab versucht, die ganze Routine weitestgehend durch Parameter anpaßbar zu machen. Ich hoffe, eine Adaption auf andere Umgebungen wird möglich, indem nur die ersten "const" Zeilen angepaßt werden müssen. Die eigentliche Routine kann dann als "Blackbox" betrachtet werden.

Gruß, Michael

12_Dezember 2007-test2.xls

Beschreibung:

Download

Dateiname:

12_Dezember 2007-test2.xls

Dateigröße:

47 KB

Heruntergeladen:

13 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 18.06.2008, 10:22

Hallo!

Hat euch alle die Programmier-Wut gepackt? Very Happy

Eine Pivot-Tabelle erledigt das nach ein paar Mausklicks.
Hier der Weg in Excel2007:
Daten markieren
Ribbon Einfügen > Pivot-Table > OK
Alle angezeigten Felder in der Pivot-Table-Feldliste von oben nach unten anhaken. (Excel packt automatisch das Feld "Prix" in den Datenbereich, alle anderen in den Zeilenbereich.)
Ribbon Pivot-Table-Tools > Entwurf > Teilergebnisse > Teilergebnisse nicht anzeigen

Et voilà... c'est fini!

12_Dezember 2007-test3.xls

Beschreibung:

Download

Dateiname:

12_Dezember 2007-test3.xls

Dateigröße:

25 KB

Heruntergeladen:

18 mal

_________________

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!

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 435
Wohnort: Kiel

Verfasst am: 18.06.2008, 11:04

schatzi hat Folgendes geschrieben:

Hat euch alle die Programmier-Wut gepackt? Very Happy

immer!

Zitat:

Eine Pivot-Tabelle erledigt das nach ein paar Mausklicks.

erwähnte ich schon, daß ich Pivot-Tabellen so ziemlich überhaupt nicht ausstehen kann? Wink

Gruß, Michael

Ariane Eberwein
Newbie
Newbie

Anmeldedatum: 15.06.2008
Beiträge: 9

Verfasst am: 19.06.2008, 12:50

Hallo,

da sind wirklich Experten unterwegs! Ich bin beeindruckt und danke Euch sehr herzlich. Das Pivot ist besonders für Laien sehr hilfreich und ich hatte genau das Vorgehen auch schon versucht. Erhalte nur ein Ergebnis, das noch nicht passt. (siehe Anhang). Was mache ich falsch? Und eine Frage an Euch Tüftler. Wenn Ihr Euch das Ergebnis des Pivots von Schatzi anseht, sind jede Menge Felder leer. Sie beziehen sich auf die obigen "Titelzellen". Wie kann ich sie automatisch wieder füllen?

Danke schon im voraus!
Ariane

Ergebnis.xlsx

Beschreibung:

Download

Dateiname:

Ergebnis.xlsx

Dateigröße:

8.7 KB

Heruntergeladen:

17 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 19.06.2008, 13:01

Hallo!

Bist du sicher, dass du die richtige Tabelle angehängt hast?
Irgendwie ist daraus so rein gar nichts ersichtlich (zumindest für mich...)

Ariane Eberwein
Newbie
Newbie

Anmeldedatum: 15.06.2008
Beiträge: 9

Verfasst am: 19.06.2008, 13:24

Hallo,

es war ein kleiner Auszug aus meinem Pivotergebnis. Hier als neues Attachment ein etwas größerer Ausschnitt. Ich habe alle Felder wie Du hinter einander angeklickt. Der Unterschied bei mir ist, daß sie alle in dieselbe Spalte A eingestellt werden und nicht wie bei Dir nebeneinander in die Spalten A, B, C usw. Habe ich mich jetzt etwas verständlicher ausgedrückt?

Bis später
Ariane

Ergebnis.xlsx

Beschreibung:

Download

Dateiname:

Ergebnis.xlsx

Dateigröße:

10.84 KB

Heruntergeladen:

14 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 19.06.2008, 13:32

Hallo!

Da es sich bei deiner Datei um keine echte Pivottabelle handelt, sondern lediglich um eine Kopie, und auch keinerlei Quelldaten zu finden sind, können wir alle nur raten...
Anhand deiner ersten Datei:
Spalte J (Prix) gehört in den Datenbereich ("Werte"/"Values").
Alle anderen Spalten (A-I) gehören in den Zeilenbereich ("Zeilenbeschriftungen"/"Row Labels")

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 19.06.2008, 13:54

Hallo!

Noch eine Idee:
Pivot-Table-Tools > Design > Report Layout > Show in Tabular Form

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

Gehe zu Seite 1, 2 Weiter

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Summieren über Tabellenblätter	Metzei	Microsoft Excel Hilfe	2	07.11.2008, 14:21
	Maximale Anzahl der Zeilen bei Pivot ...	McPilsbier	Microsoft Excel Hilfe	1	05.11.2008, 13:55
	Excel 20078 - Zeilen ausblenden, wenn...	Aithnea	Microsoft Excel Hilfe	21	30.10.2008, 10:38
	Zeilen durchsuchen	ThomSchulz	Microsoft Excel Hilfe	4	23.10.2008, 17:44
	Zeilen, inkl. Checkboxen / Optionsfel...	Pommes	Microsoft Excel Hilfe	2	06.10.2008, 13:06

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