Office: (Office 2010) Mehrere doppelte Einträge extrahieren

Hallo zusammen,

ich habe hier ein kleines Problemchen mit doppelten Einträgen in der Excel Version 2010.
Es gibt sicherlich 100.000 Einträge über dieses Thema, aber irgendwie habe ich noch nicht das passende für mich gefunden.
Es geht um folgendes.
Ich habe ein Tabelle mit ca. 5000 Zeilen.
In diesen Zeilen gibt es doppelte Werte und zwar in dieser Art
ABC
ABC
ABC
DEF
DEF
DEF
GHI
GHI
GHI

D.h. ich habe mehrfach vorkommende doppelte Werte.
Diese würde ich gerne verschieden Farblich markieren oder anders markieren, um sie dann entsprechend in ein anderes Tabellenblatt zu kopieren um die dann in dieser Zeile vorkommenden Werte zu addieren.
Ist sowas in VBA möglich, oder sollte man besser mit Formeln arbeiten?
Mein Problem ist, dass ich zwar schon doppelte Werte per VBA "erkennen" kann, aber leider markiert er mir dann ALLE Werte mit der gleichen Farbe.
Ich habe mir das so vorgestellt, dass eine VBA Routine die verschiedenen gleichen Einträge erkennt und entsprechend andersfarbig markiert (oder auch in ein anderes Tabellenblatt ohne Markierung kopiert).

Ob mir da jemand unter die Arme greifen kann?

Gruß
Brave

:)

 

Hallo Brave,

sicher wäre es möglich, die Zellen farblich zu markieren, z. B. über bedingte Formatierung. Aber Dein eigentliches Ziel ist es ja, Werte zu jedem Eintrag aufzuaddieren - dafür wäre die Farbgebung ja nur ein Zwischenschritt, der garnicht benötigt wird.

Hierfür würde ich eine Pivot-Tabelle verwenden:
Die Bezeichnung "ABC".... in das Zeilenfeld ziehen und den dazugehörigen Wert, den Du addieren willst, in das Datenfeld. Dann, falls noch nicht automatisch richtig gesetzt, die Formel für die Datenfelder auf "Summe" setzen.

Grüße
EarlFred

 

Hallo EarlFred,

vielen lieben Dank für Dein Feedback.
okay, Pivot Tabelle erstellt. Aber irgendwie stimmen die errechneten Summen überhaupt nicht.
Habe mal ABC in den Zeilenbeschriftungen gesetzt.
Und Preis in Werte und habe "Summe von Preis" gesetzt.

Wie kann ich denn überprüfen, welche Zellen der denn Berechnet in dieser Pivot Tabelle?

 

Hi,

per Formel wäre das vielleicht eine Möglichkeit:

Tabelle1

	A	B
1	ABC	3
2	ABC	4
3	ABC	3
4	DEF	5
5	DEF	6
6	DEF	7
7	GHI	6
8	GHI	7
9	GHI	7

Tabelle2

	A	B
1	ABC	10
2	DEF	18
3	GHI	20

verwendete Formeln
Zelle	Formel	Bereich
A1	{=WENN(ISTFEHLER(INDEX(Tabelle1!A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBE N(Tabelle1!A;;;ZEILE(:0));Tabelle1!A:A0)=1;ZEILE(:0));ZEILE(A1) )));"";INDEX(Tabelle1!A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(Tabelle1!A;; ;ZEILE(:0));Tabelle1!A:A0)=1;ZEILE(:0));ZEILE(A1))))}	$A
B1	=SUMMEWENN(Tabelle1!A:A;Tabelle2!A1;Tabelle1!B:B)
A2	{=WENN(ISTFEHLER(INDEX(Tabelle1!A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBE N(Tabelle1!A;;;ZEILE(:0));Tabelle1!A:A0)=1;ZEILE(:0));ZEILE(A2) )));"";INDEX(Tabelle1!A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(Tabelle1!A;; ;ZEILE(:0));Tabelle1!A:A0)=1;ZEILE(:0));ZEILE(A2))))}	$A
B2	=SUMMEWENN(Tabelle1!A:A;Tabelle2!A2;Tabelle1!B:B)
A3	{=WENN(ISTFEHLER(INDEX(Tabelle1!A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBE N(Tabelle1!A;;;ZEILE(:0));Tabelle1!A:A0)=1;ZEILE(:0));ZEILE(A3) )));"";INDEX(Tabelle1!A:A;KKLEINSTE(WENN(ZÄHLENWENN(BEREICH.VERSCHIEBEN(Tabelle1!A;; ;ZEILE(:0));Tabelle1!A:A0)=1;ZEILE(:0));ZEILE(A3))))}	$A
B3	=SUMMEWENN(Tabelle1!A:A;Tabelle2!A3;Tabelle1!B:B)

{} Matrixformel mit Strg+Umschalt+Enter abschließen
Matrixformeln sind durch geschweifte Klammern {} eingeschlossen
Diese Klammern nicht eingeben!!

 

Hallo Brave,

wenn die Summen nicht stimmen, vermute ich, dass die Ausgangsdaten vielleicht nicht passen. Stammen diese eventuell aus einem Import / Export und sind als Text in den Zellen eingetragen?

Das Verhalten ist im "Blindflug" nicht nachstellbar. Kannst Du eine Mustertabelle bereitstellen, an der man die falschen Berechnungen nachvollziehen kann?

Grüße
EarlFred

 

Hallo Beverly,

diese Seite hatte ich mir auch schon angeschaut, aber irgendwie fehlt mir das Verständnis dafür. D.h. was passiert da an welcher Stelle und wo soll ich wo anpacken?! Ich hab´mal Testweise die Formel eingegeben bekomme dann aber den Fehler "zu viele Argumente...".

 

Hallo Brave,

hast Du mal testweise probiert, ob z. B. die Formel =Summewenn das richtige Ergebnis ausgeben würde?
Nimm Dir mal einen Begriff "ABC", bei dem die Pivottabelle das falsche Ergebnis ausgibt und nutze diesen als Suchkriterium in der Summewenn-Formel.

Grüße
EarlFred

 

Hallo EarlFred,

ich habe jetzt mal ein wenig rumprobiert.
Gibt es in der Pivot Tabelle vielleicht Grenzen?
Ich habe ja ca. 4900 Datensätze.
Wenn ich mir jetzt z.B. die ersten 500 in eine Pivot Tabelle ausgeben lasse, dann stimmen die Summen.

 

Hi,

wie du sehen kannst, funktioniert die Formel in meinem Beispiel korrekt und ohne Fehelrmeldung (sonst hätte ich sie nicht posten können).
Dann solltest du mal eine Beispielmappe hochladen, sodass man sich das mal unter deinen Bedingungen anschauen und entsprechend anpassen kann. WAS die Formel in Spalte A macht, muss man nicht unbedingt verstehen, man muss nur verstehen, WIE man sie auf die konkreten Bedingungen anwenden muss - sie ist ja nur dazu da, dass die mehrfach auftretenden Werte der Spalte A nur einzeln aufgelistet werden. Du kannst sie natürlich auch von Hand erfassen und dann mit der Formel aus Spalte B =SUMMEWENN(Tabelle1!A:A;Tabelle2!A1;Tabelle1!B:B) die jeweiligen Summen dazu ermitteln.

 

Hallo Brave,

5000 Datensätze sollten für eine Pivot-Tabelle kein Problem darstellen.

Hast Du mal geprüft, ob die "Schlüssel", also Deine "ABC"-Werte, alle gleich geschrieben wurden? Die Pivottabelle prüft "hart", so dass "ABC" und "ABC " und " ABC" (beachte die Leerzeichen vorne / hinten) in unterschiedlichen Kategorien summiert werden.

Grüße
EarlFred

 

Hallo Ihr Beiden,

ich habe nochmal alles überprüft und bin dann doch zum gewünschten Erfolg gekommen. (Mit Pivot) Ich hatte mir ein falsches Feld zum anzeigen ausgewählt und kam daher nicht auf die richtigen Summen.

Vielen Dank bis hierhin für die schnelle und gute Hilfe.

Gruß
Brave