Tabelle nach Kriterien zusammenfassen

Bild

Betrifft: Tabelle nach Kriterien zusammenfassen
von: muehli
Geschrieben am: 23.10.2015 13:04:24

Hallo zusammen,
ich habe ein Problem, bei dem ich nicht weiter komme.
Ich habe eine Tabelle (siehe Anhang), die ich gerne zusammengefasst hätte.
Das Ganze soll per Button realisiert werden (VBA).
https://www.herber.de/bbs/user/100991.xlsx
Es gibt hier zwei Bedigungen, nach denen sortiert werden muss.
Der Artikel pro "Enc.X" soll nur noch 1mal in der Liste erscheinen und daneben (rotes X) soll die Anzahl stehen, die in dem jeweiligen "Enc.X" vorhanden ist.
Ich hoffe man kann mein Problem ansatzweise verstehen.
Kann mir hierbei jemand helfen?
Freundliche Grüße
muehli

Bild

Betrifft: Pivot-Tabelle owT
von: Rudi Maintaire
Geschrieben am: 23.10.2015 13:18:18


Bild

Betrifft: AW: Pivot-Tabelle owT
von: muehli
Geschrieben am: 23.10.2015 13:24:16
Hallo Rudi,
danke für die schnelle Antwort.
Ich kenne mich mit Pivot-Tabellen leider null aus.
Kurz zum verständnis:
Diese ursprüngliche Liste in der Beispieldatei ist ein Zwischenschritt eines Makros.
Um die Daten weiter zu verarbeiten brauche ich Sie jedoch im gewünschten Format.
Das hier ist mein Versuch es zu lösen, jedoch wird dann die "Anzahl" falsch angegeben:

'Doppelte einträge löschen
 With Range("Q4:Q2000")
   .Formula = "=countif(c15, rc[-2])"
   .Formula = .Value
 End With
 Range("O3:R2000").RemoveDuplicates Columns:=Array(1, 3, 4), Header:=xlNo
'Von Zwischenablage in die eigentliche Tabelle kopieren
'Artikelbezeichnung
 Range("O4").Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.Copy
 Range("C12").PasteSpecial Paste:=xlValues           ' nur Werte
'Verlustleistung
 Range("P4").Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.Copy
 Range("H12").PasteSpecial Paste:=xlValues           ' nur Werte
'Anzahl
 Range("Q4").Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.Copy
 Range("E12").PasteSpecial Paste:=xlValues           ' nur Werte
 'Ort
 Range("R4").Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.Copy
 Range("D12").PasteSpecial Paste:=xlValues           ' nur Werte
'Zwischenablage bereinigen
 Range("O4:R4").Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.Delete
Muss man dann eine Pivot-Tabelle erstellen lassen und aus dieser dann die Daten zurück in die Excel-Tabelle holen?
Gruß und danke,
muehli

Bild

Betrifft: AW: Pivot-Tabelle owT
von: muehli
Geschrieben am: 23.10.2015 14:15:46
Ich glaube ich habs:

'Doppelte einträge löschen
 With Range("Q4:Q2000")
   .Formula = "=countifs(c15,rc[-2],c18,rc[+1])"
   .Formula = .Value
 End With
 Range("O3:R2000").RemoveDuplicates Columns:=Array(1, 3, 4), Header:=xlNo
'Von Zwischenablage in die eigentliche Tabelle kopieren
'Artikelbezeichnung
 Range("O4").Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.Copy
 Range("C12").PasteSpecial Paste:=xlValues           ' nur Werte
'Verlustleistung
 Range("P4").Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.Copy
 Range("H12").PasteSpecial Paste:=xlValues           ' nur Werte
'Anzahl
 Range("Q4").Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.Copy
 Range("E12").PasteSpecial Paste:=xlValues           ' nur Werte
 'Ort
 Range("R4").Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.Copy
 Range("D12").PasteSpecial Paste:=xlValues           ' nur Werte
'Zwischenablage bereinigen
 Range("O4:R4").Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.Delete
So funktioniert es denke ich :)

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Tabelle nach Kriterien zusammenfassen"