Gleiche Werte in Excel zusammenfassen und addieren
Schritt-für-Schritt-Anleitung
Um in Excel gleiche Werte zusammenzufassen und die entsprechenden Zellen zu addieren, kannst du die folgende VBA-Lösung verwenden. Diese Methode ist besonders nützlich, wenn du bereits eine Tabelle mit doppelten Werten hast und diese zusammenfassen möchtest.
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Klicke auf Einfügen und wähle Modul aus.
-
Füge den folgenden Code in das Modul ein:
Sub Summieren()
Dim objDictionary As Object
Dim varBereich As Variant
Dim lngZaehler As Long
Dim arrDaten()
Dim arrSumme()
Set objDictionary = CreateObject("Scripting.Dictionary")
varBereich = Range("A1:A7")
For lngZaehler = LBound(varBereich) To UBound(varBereich)
objDictionary(varBereich(lngZaehler, 1)) = 0
Next
arrDaten() = objDictionary.keys
ReDim arrSumme(0 To UBound(arrDaten()), 0 To 3)
For lngZaehler = 0 To UBound(arrDaten())
arrSumme(lngZaehler, 0) = arrDaten(lngZaehler)
arrSumme(lngZaehler, 1) = Application.SumIf(Range("A1:A7"), arrDaten(lngZaehler), Range("B1:B7"))
arrSumme(lngZaehler, 2) = Application.SumIf(Range("A1:A7"), arrDaten(lngZaehler), Range("C1:C7"))
arrSumme(lngZaehler, 3) = Application.SumIf(Range("A1:A7"), arrDaten(lngZaehler), Range("D1:D7"))
Next lngZaehler
Range("F1").Resize(lngZaehler, 4) = arrSumme()
End Sub
-
Schließe den VBA-Editor und kehre zu deinem Arbeitsblatt zurück.
-
Um das Makro auszuführen, drücke ALT + F8, wähle Summieren und klicke auf Ausführen.
Jetzt hast du die gleichen Werte in deiner Excel-Tabelle zusammengefasst und addiert!
Häufige Fehler und Lösungen
Fehler: Der Code läuft nicht oder gibt eine Fehlermeldung aus.
Lösung: Überprüfe, ob die Daten im richtigen Bereich liegen. Stelle sicher, dass der Datenbereich in der Zeile varBereich = Range("A1:A7") korrekt ist und an deine Daten angepasst wird.
Fehler: Die Ergebnisse sind nicht wie erwartet.
Lösung: Stelle sicher, dass die Artikelnummern in Spalte A keine Leerzeichen oder andere unsichtbare Zeichen enthalten. Du kannst dies überprüfen, indem du die TRIM-Funktion verwendest, um unerwünschte Leerzeichen zu entfernen.
Alternative Methoden
Falls du keine VBA-Lösungen verwenden möchtest, kannst du auch die Funktionen SUMMEWENN oder SUMMEWENNS in Excel verwenden, um doppelte Werte zusammenzufassen und zu addieren. Zum Beispiel:
=SUMMEWENN(A:A;F1;B:B)
Diese Formel summiert alle Werte in Spalte B, wenn die Bedingungen in Spalte A erfüllt sind. Du kannst diese Methode verwenden, um gleiche Werte zusammenzufassen und zu zählen.
Praktische Beispiele
Angenommen, du hast die folgende Tabelle:
| Artikelnummer |
Wert 1 |
Wert 2 |
Wert 3 |
| 1 |
2 |
3 |
4 |
| 2 |
3 |
4 |
5 |
| 1 |
4 |
5 |
6 |
| 2 |
1 |
2 |
3 |
Um diese Daten zusammenzufassen, kannst du die oben genannten Methoden verwenden. Nach dem Ausführen des Makros oder der Formeln solltest du folgende Ergebnisse erhalten:
| Artikelnummer |
Wert 1 |
Wert 2 |
Wert 3 |
| 1 |
6 |
8 |
10 |
| 2 |
4 |
6 |
8 |
Tipps für Profis
- Wenn du oft mit doppelten Werten arbeitest, solltest du in Erwägung ziehen, deine Daten in einer Tabelle zu formatieren. Dies erleichtert die Anwendung von Funktionen wie
SUMMEWENN und SUMMEWENNS.
- Nutze die
PivotTable-Funktion, um große Datenmengen schnell zusammenzufassen und zu analysieren. Dies ist besonders nützlich, wenn du ein Diagramm erstellen möchtest, das die gleichen Werte zusammenfasst.
FAQ: Häufige Fragen
1. Wie kann ich die Formel anpassen, um mehr als zwei Spalten zu addieren?
Du kannst die SUMMEWENN-Formel einfach erweitern, indem du zusätzliche SUMMEWENN-Funktionen für jede Spalte hinzufügst.
2. Welche Excel-Version benötige ich für diese Methoden?
Die oben beschriebenen Methoden funktionieren in den meisten aktuellen Excel-Versionen, einschließlich Excel 2010, 2013, 2016, 2019 und Microsoft 365.
3. Gibt es eine Möglichkeit, die doppelten Werte zu markieren, anstatt sie zu summieren?
Ja, du kannst die bedingte Formatierung verwenden, um doppelte Werte in deiner Tabelle hervorzuheben. Gehe dazu zu Start > Bedingte Formatierung > Regeln zum Hervorheben von Zellen > Doppelte Werte.