Doppelte Werte addieren

Forumthread: Doppelte Werte addieren

21.09.2016 11:59:09

Henry

Moin,
vielleicht hat jemand eine Idee ob VBA oder Formel ist nicht wichtig.
In Spalte G habe ich Werte die mehrfach vorkommen.
Dazu stehen in Spalte I Werte für Rechnungsbeträge
Die Werte in Spalte I sind im Plus (Rechnung) oder im Minus (Storno).
z.b.
123 40
123 -40
123 30
234 30
234 60
234 -30
Ergebnisse :
123 = 30
234 = 60
Es sollen am Ende doppelte Werte in Spalte G gelöscht und nur das Ergebnis aus der Addierung der Rechnungsbeträge in einer Zeile abgebildet werden.
Das läuft vermutlich nur über VBA, richtig ?
Wer kann helfen ?
Mit freundlichem Gruß
Henry

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Doppelte Werte addieren

21.09.2016 12:11:58

Daniel
Doppler eliminieren

21.09.2016 12:13:40

WF

AW: Doppelte Werte addieren

21.09.2016 12:11:58

Daniel

Hi
da gibt's auch andere Wege.
z.B. könntest du eine Auswertung mit Hilfe der Pivottabelle machen.
markiere die Tabelle und klicke EINFÜGEN - TABELLLEN - PIVOTTABLE
bestätige dann im ersten Schritt des Assistenten.
im zweiten Teil des Assistenten ziehst du dann die Spalte G nach "Zeilen" und die Spalte I nach "Daten" und wertest über "Summe" aus.
eine zweite Variante für kleinere Datenmengen wäre diese:
kopiere die Spalte G und füge sie an einer freien Stelle der Tabelle ein (z.B. Spalte AA)
führe dann für diese Spalte AA die Funtkion DATEN - DATENTOOLS - DUPLIKATE ENTFERNEN aus.
füge in die Spalte AB die Formel ein: =SummeWenn(G:G;AA1;I:I)
Gruß Daniel

Doppler eliminieren

21.09.2016 12:13:40

Hi,
in K1 steht =G1
in K2 steht die Arrayformel:
{=WENNFEHLER(INDEX(G:G;VERGLEICH(1;(ZÄHLENWENN(K$1:K1;G$1:G$99)=0)*(G$1:G$99"");0));"")}
runterkopieren
Die Rechnungsbeträge in Spalte L dann mit SUMMEWENN
Salut WF

Infobox / Tutorial

Doppelte Werte in Excel addieren und zusammenfassen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um doppelte Werte in Excel zu addieren und zusammenzufassen, kannst du folgende Schritte befolgen:

Daten vorbereiten: Stelle sicher, dass deine Daten in zwei Spalten organisiert sind, zum Beispiel:
- Spalte G: Identifikationsnummern
- Spalte I: Rechnungsbeträge
Pivottabelle erstellen:
- Markiere deine Daten.
- Gehe zu Einfügen -> Tabelle -> Pivottabelle.
- Wähle im Assistenten die Option, um die Pivottabelle auf einem neuen Arbeitsblatt zu platzieren.
- Ziehe die Spalte G in den Bereich "Zeilen" und die Spalte I in den Bereich "Werte".
- Stelle sicher, dass die Werte als "Summe von I" angezeigt werden.
Summe ohne doppelte Werte berechnen:
- Alternativ kannst du die Formel =SUMMEWENN(G:G; AA1; I:I) verwenden, um die Werte in Spalte I basierend auf den eindeutigen Werten in einer neuen Spalte (z.B. AA) zu summieren.
Doppelte Werte entfernen:
- Du kannst auch die Funktion Daten -> Datentools -> Duplikate entfernen verwenden, um doppelte Einträge in Spalte G zu löschen.

Häufige Fehler und Lösungen

Fehler: Pivottabelle zeigt keine Daten an.
- Lösung: Stelle sicher, dass du die Daten korrekt markiert hast und dass es keine leeren Zeilen in deinem Datenbereich gibt.
Fehler: Formel gibt falsche Ergebnisse zurück.
- Lösung: Überprüfe die Zellreferenzen in deiner SUMMEWENN-Formel. Achte darauf, dass die Bereiche korrekt angegeben sind.

Alternative Methoden

Falls du keine Pivottabelle nutzen möchtest, gibt es weitere Möglichkeiten, doppelte Werte in Excel zusammenzufassen:

VBA-Makro: Du kannst ein einfaches VBA-Skript erstellen, das die doppelten Werte addiert und in einer neuen Zeile ausgibt. Zum Beispiel:

Sub AddiereDoppelteWerte()
   Dim dict As Object
   Set dict = CreateObject("Scripting.Dictionary")
   Dim i As Integer

   For i = 1 To Cells(Rows.Count, 7).End(xlUp).Row
       If Not dict.Exists(Cells(i, 7).Value) Then
           dict.Add Cells(i, 7).Value, Cells(i, 9).Value
       Else
           dict(Cells(i, 7).Value) = dict(Cells(i, 7).Value) + Cells(i, 9).Value
       End If
   Next i

   ' Ausgabe der Ergebnisse
   Dim j As Integer
   j = 1
   For Each key In dict.Keys
       Cells(j, 11).Value = key
       Cells(j, 12).Value = dict(key)
       j = j + 1
   Next key
End Sub

Excel-Funktionen: Nutze die Funktion AGGREGAT, um eine Summe ohne doppelte Werte zu berechnen.

Praktische Beispiele

Angenommen, du hast folgende Daten in Excel:

G (ID)	I (Betrag)
123	40
123	-40
123	30
234	30
234	60
234	-30

Nach Anwendung der Pivottabelle oder der SUMMEWENN-Formel, solltest du folgende Ergebnisse erhalten:

ID	Summe
123	30
234	60

Tipps für Profis

Verwende bedingte Formatierung: Markiere doppelte Werte visuell, um sie schneller zu erkennen.
Nutze die Funktion EINDEUTIGE: Wenn du Excel 365 verwendest, kannst du die Funktion EINDEUTIGE verwenden, um eine Liste ohne Duplikate zu erstellen und anschließend die Summe zu berechnen.
Automatisiere mit VBA: Wenn du häufig mit doppelten Werten arbeitest, erstelle ein VBA-Makro, um den Prozess zu automatisieren.

FAQ: Häufige Fragen

1. Wie kann ich doppelte Werte in Excel zusammenfassen?
Du kannst die Funktion SUMMEWENN oder eine Pivottabelle verwenden, um doppelte Werte zusammenzufassen.

2. Was ist der Unterschied zwischen SUMMEWENN und einer Pivottabelle?
SUMMEWENN ist ideal für kleinere Datenmengen, während Pivottabellen für größere Datenmengen und komplexere Analysen besser geeignet sind.

3. Wie entferne ich doppelte Werte in Excel?
Nutze die Funktion Daten -> Datentools -> Duplikate entfernen, um doppelte Einträge schnell zu löschen.

Beliebteste Forumthreads (12 Monate)