Office: Summieren von gleichen Zeilen

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! :-)

 

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ß

 

neue Excel-Datei

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.

 

neue Excel-Datei

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.

 

Hallo,

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

Gruß

 

Summieren von Zeilen

Hallo,

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

 

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ß

 

Re: Summieren von Zeilen

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

 

Hallo!

Hat euch alle die Programmier-Wut gepackt? :-D
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!

 

immer! ;-)

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

Gruß, Michael

 

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

 

Hallo!

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

 

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

 

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

 

Hallo!

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