Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen zusammenfassen und Werte Addieren mit VBA

Forumthread: Zeilen zusammenfassen und Werte Addieren mit VBA

Zeilen zusammenfassen und Werte Addieren mit VBA
17.08.2005 19:03:24
Harald
Hallo Ich habe folgendes Problem :
Ich habe eine Tabelle aus mehrerern Spalten besteht.
Beispiel:
Kennnummer Name Bereich WERT 1 WERT 2
1 X A 10 2
1 X A 5 1
1 X A 5 5
2 H B 8 44
2 H B 5 556
3 G C 6 9
3 G C 4 8
3 G C 5 2
3 G C 6 8
4 M D 4 3
4 M D 3 88
4 M D 4 55
4 M D 8 55
In der ersten Spalte A kommen immer wieder die gleichen Nummern vor.
Ich möchte die Zeilen zu einer zusammenfassen und den Wert in den Spalten C
addieren und die Werte in der Spalte D addieren
Tabelle soll nachher so aussehn:
Kennnummer Name Bereich WERT 1 WERT 2
1 X A 20 8
2 H B 13 600
3 G C 21 27
4 M D 19 201
Wenn einer eine Lösung wüsste wäre toll.
Gruß Harald

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen zusammenfassen und Werte Addieren mit V
17.08.2005 20:29:03
ChrisBee
Hallo Harald.
Wenn Du einen CommandButton daneben baust dann gehts mit diesem Code:

Private Sub CommandButton1_Click()
Dim iRow As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
Do Until Cells(iRow, 1).Value <> Cells(iRow + 1, 1).Value
If Cells(iRow, 1).Value = Cells(iRow + 1, 1).Value Then
Cells(iRow, 4) = Cells(iRow, 4) + Cells(iRow + 1, 4)
Cells(iRow, 5) = Cells(iRow, 5) + Cells(iRow + 1, 5)
Rows(iRow + 1).Delete
End If
Loop
iRow = iRow + 1
Loop
End Sub

Mit ein bisschen basteln kann mans aber auch in ein Makro setzen.
Sonnige Grüße
ChrisBee
Anzeige
;

Forumthreads zu verwandten Themen

Gleiche Werte zusammenfassen und Zellposition beib
Bastian

Hallo liebe Excel Profis,
ich hänge gerade an einer "Baustelle" die ich nicht lösen kann und hoffe, dass ihr mir helfen könnt.
Ich verfüge über eine Liste wie z.B. diese:
------SpalteB---SpalteC---SpalteD---SpalteE
2-----Apfel-------Eins
3-----Apfel--------------------------...
27.10.2014 09:58:07
Thread-ID: 1388823
2 Beiträge
zeilen zusammenfügen und addieren wenn Wert passt
Thomas

Hallo
folgende Tabelle habe ich
Artikel gewicht Kunde
Blume1 4,00 121
Blume2 5,00 121
Vase3 9,00 122
Teller1 4,00 123
Tasse2 3,00 123
Rose1 1,00 123
Tulpe1 3,00 124
-Kunde ist immer aufsteigend sortiert
-Überschrift ist ni...
22.06.2016 15:53:47
Thread-ID: 1500368
2 Beiträge
Zusammenfassen und Addieren
Nermin

Hallo liebe Community,
ich habe folgendes Problem, ich möchte gleiche Artikel Zusammenfassen und deren Bestände oder Bedarf (je nachdem) aufaddieren und in einer neuen Liste, wo jeder z.B. Artikel nur einmal aufgelistet wird jedoch der Bestand/Bedarf als Summe, dargestellt wird.
Hier is...
14.07.2016 10:05:49
Thread-ID: 1504360
10 Beiträge
Zeilen untereinander zusammenfassen nach Kundennr.
Dirk

Hallo zusammen,
habe ein Tabellenblatt "abgeschlossene 2017" in der Spalte ab A2 sind eindeutige Kunden Nr vorhanden. (Es werden max. 1000 Einträge). Kundennummer kommen 1 bis ... vor.
In den Spalten E und F steht das Bestelldatum Eingang und Auslieferung, sowie in der Spalte "I" Bemerk...
12.09.2017 08:18:33
Thread-ID: 1579914
11 Beiträge
Anzeige
Zeilen Zusammenfassen und Summer ermitteln
Christian

Hallo,
ich habe hier eine Excel Datei mit einer Lsite von Benutzern, Dateien und deren Größen.
Ich will die Benutzer zusammenfassen und dann ausrechnen wie viele MB an Daten jeder hat.
Alles alleine raussuchen ist zu aufwendig, sind es doch 500 Anwender bei 43000 Zeilen und DBSUMME() i...
20.05.2003 18:36:31
Thread-ID: 259154
3 Beiträge
Gleiche Zellen addieren und zusammenfassen
Thomas

Hallo,
habe folgendes Problem:
In Spalte A stehen mehrere gleiche Werte, in Spalte B unterschiedliche Beträge.
Beispiel:
1 100,00 €
1 200,00 €
1 300,00 €
2 100,00 €
2 100,00 €
3 600,00 €
3 600,00 €
3 600,00 €
4 500,00 €
4 500,00 €
I...
19.09.2005 11:24:24
Thread-ID: 669198
3 Beiträge
2 gleiche Werte finden und Werte addieren
Andre´

Hallo alle zusammen,
Ich habe in der Spalte B immer zwei gleiche Werte stehen, und in der Spalte F stehen die Werte die addiert werden müssen.
Mit dem Sverweis bekomme ich nur den ersten gefundenen Wert zurück. Gibt es eine Möglichkeit einen dynamischen Sverweis anzuwenden oder einen Sv...
06.10.2006 13:39:11
Thread-ID: 808428
5 Beiträge
Per VBA Zeilen vergleichen und addieren
Nektim

Hier noch mal ein Versuch mit Bsp. Datei.
Die Zeilen bei denen Spalte a-e gleich sind sollen addiert werden.
https://www.herber.de/bbs/user/49275.xls
22.01.2008 19:36:16
Thread-ID: 944237
8 Beiträge
Auslesen und Zusammenfassen Zeilen
Dani

Servus Community:
Ich möchte folgendes:
In Tabelle 1 Zeile A2 wird ausgelsen Max Maier. Dies wird mit Tabelle 2 A2-AX abeglichen. Die Werte die Übereinstimmen wird Zeile B3 kopiert und hinter den passenden Wert von Tabelle A2 in Spalte A3 untereinander kopiert.
z.B.
Tabelle 1:...
05.10.2020 10:22:41
Thread-ID: 1785580
6 Beiträge
Zeilen zusammenfassen und vergleichen
Lutz

Moin, moin!
Ich schlage mich mit einem Problem rum, das sich, so meine Vermutung, mit Excel oder vielleicht einem Makro lösen lassen müsste. Leider konnte ich weder selbst, noch über lange Suchen im Netz eine Lösung finden.
Vielleicht habt ihr eine Idee?
Ich habe eine lange Liste...
27.01.2021 11:35:55
Thread-ID: 1808671
13 Beiträge
gleiche Zeilen zusammenfassen und Anzahl
Anton

Hallo zusammen,
ich bin leider mal wieder auf eure Hilfe angewiesen,
Es würde mich freuen, wenn sich jemand für mein Problem kurz Zeit nimmt.
Ich möchte über den Button "Zusammenfassen" per VDA-Makro, wie in der Beispieltabelle (https://www.herber.de/bbs/user/147160.xlsm) dargestell...
16.07.2021 17:14:53
Thread-ID: 1839488
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zeilen zusammenfassen und Werte addieren mit VBA

Schritt-für-Schritt-Anleitung

  1. Öffne dein Excel-Dokument mit der Tabelle, die die zu aggregierenden Werte enthält.

  2. Füge einen CommandButton hinzu:

    • Gehe zu den Entwicklertools und wähle "Einfügen".
    • Wähle den CommandButton aus und platziere ihn in deiner Tabelle.

  3. Öffne den VBA-Editor:

    • Klicke mit der rechten Maustaste auf den CommandButton und wähle "Code anzeigen".

  4. Füge den folgenden Code ein:

    Private Sub CommandButton1_Click()
   Dim iRow As Integer
   iRow = 1
   Do Until IsEmpty(Cells(iRow, 1))
       Do Until Cells(iRow, 1).Value <> Cells(iRow + 1, 1).Value
           If Cells(iRow, 1).Value = Cells(iRow + 1, 1).Value Then
               Cells(iRow, 4) = Cells(iRow, 4) + Cells(iRow + 1, 4)
               Cells(iRow, 5) = Cells(iRow, 5) + Cells(iRow + 1, 5)
               Rows(iRow + 1).Delete
           End If
       Loop
       iRow = iRow + 1
   Loop
End Sub

  5. Schließe den VBA-Editor und kehre zurück zur Excel-Oberfläche.

  6. Klicke auf den CommandButton, um die Zeilen zusammenzufassen und die Werte in den Spalten zu addieren.

Häufige Fehler und Lösungen

  • Fehler: „Typen unverträglich“
    Lösung: Stelle sicher, dass die Werte in den Spalten, die addiert werden sollen, tatsächlich Zahlen sind. Überprüfe auf unerwünschte Leerzeichen oder Textformate.

  • Fehler: „Index außerhalb des gültigen Bereichs“
    Lösung: Dieser Fehler tritt auf, wenn die Schleife über den letzten Datenbereich hinausgeht. Überprüfe die Endbedingung in der Schleife.

Alternative Methoden

Falls du keine VBA-Lösungen verwenden möchtest, kannst du auch die PivotTable-Funktion in Excel nutzen:

  1. Wähle deine Daten aus.
  2. Gehe zu „Einfügen“ und klicke auf „PivotTable“.
  3. Ziehe die Kennnummer, den Namen und den Bereich in die Zeilen und die Werte in den Wertebereich, um die Werte zusammenzufassen.

Praktische Beispiele

Angenommen, du hast die folgende Tabelle:

Kennnummer Name Bereich WERT 1 WERT 2
1 X A 10 2
1 X A 5 1

Nach der Ausführung des VBA-Codes sieht die Tabelle so aus:

Kennnummer Name Bereich WERT 1 WERT 2
1 X A 15 3

Tipps für Profis

  • Optimiere den VBA-Code: Du kannst den Code effizienter gestalten, indem du zusätzliche Bedingungen hinzufügst, um leere Zeilen zu ignorieren.
  • Verwende die „RemoveDuplicates“-Funktion in Kombination mit „SumIf“, um eine nicht-vba-basierte Lösung zu erzielen.

FAQ: Häufige Fragen

1. Wie kann ich den Code anpassen, wenn ich mehr als zwei Werte addieren möchte?
Du kannst einfach weitere Cells(iRow, x) = Cells(iRow, x) + Cells(iRow + 1, x)-Zeilen für die gewünschten Spalten hinzufügen.

2. Ist dieser VBA-Code auch in älteren Excel-Versionen kompatibel?
Ja, der Code sollte in Excel-Versionen ab 2007 funktionieren. Achte darauf, dass die Entwicklertools aktiviert sind.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige