Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1452to1456
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1452to1456
1452to1456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle nach Kriterien zusammenfassen

Tabelle nach Kriterien zusammenfassen
23.10.2015 13:04:24
muehli
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Pivot-Tabelle owT
23.10.2015 13:18:18
Rudi

AW: Pivot-Tabelle owT
23.10.2015 13:24:16
muehli
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

Anzeige
AW: Pivot-Tabelle owT
23.10.2015 14:15:46
muehli
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 :)
Anzeige

300 Forumthreads zu ähnlichen Themen

Exceldatei automatisch in mehrere Dateien zerlegen
Sieben

Hallo Zusammen,
eine Frage zur Automatisierung von Arbeiten in Excel.
Habe jetzt eine Datei bekommen, in der pro Land ein Arbeitsblatt erstellt wurde. Ich möchte diese Arbeitsblätter einzeln als Exceldateien abspeichern.
Gibt es hier eventl. per VBA die Möglichkeit dazu, ohne jedes...
28.09.2009 15:33:46
Thread-ID: 1106048
3 Beiträge
Anzeige
Inhalt einer Tabelle in mehreren Tabellen anzeigen
Ivek

Hallo Community!
Ich habe wieder ein Problem! Ich will Inhalte aus der "Tabelle1" in weitere Tabellen (Tabelle2, Tabelle3, Tabelle4...) anzeigen. Dies funktionier auch. Ich habe dazu diesen Code verwendet:
Worksheets("ET").Activate
Worksheets("ET").Rows(i).Select
Selection.Copy<...
21.08.2012 14:31:26
Thread-ID: 1275882
7 Beiträge
Datei in mehrere Datei aufteilen
Peter

Liebes Forum,
ich habe eine einfache Datei (TestX). Nun soll diese Datei (TestX) per Makro auf mehrere Dateien z.B. Test1, Test2 und Test3 aufegeteilt werden wobei die Anzahl der Texte und somit dar Dateien variabel ist.
Bitte um Eure Hilfe.
TextX: https://www.herber.de/bbs/user/88...
18.12.2013 12:03:51
Thread-ID: 1342976
5 Beiträge
Anzeige
Tabelle nach mehreren Kriterien durchsuchen
Uli

Hallo,
ich habe ein Tabellenblatt mit 20 Spalten. Dazu habe ich eine Userform entworfen, die diese Tabelle nach mehreren Kriterien durchsuchen und die zutreffenden Zeilen in eine neue Tabelle schreiben soll.
Die Suchkriterien betreffen Spalte 12, 17 und 19.
Beispiel: Spalte 12 trif...
23.07.2015 12:29:09
Thread-ID: 1438067
3 Beiträge
Worksheet in einzelne Dateien speichern
th-dx100

Hallo Zusammen,
habe eine Liste mit ca.10000 Einträgen. Diese habe ich per Makro in einzelne Worksheets getrennt.
(Nach einen Suchkriterium).
Jetzt möchte ich die einzelnen Blätter in einzelnen Dateien abspeichern.
Wie kann ich das machen? Habe keinen Ansatz gefunden das in VBA...
19.10.2015 19:55:28
Thread-ID: 1453205
2 Beiträge
Tabelle nach Kriterien gruppieren
Olga
Hallo Spezialisten,
Tabelle gem. Vorgaben und wenn Titel fett gruppieren.
In Anlage meine Tabelle betreffend gruppieren.
Danke für Eure Hilfe!
Gruß
Olga
https://www.herber.de/bbs/user/102470.xlsm
29.12.2015 06:21:45
Thread-ID: 1466268
2 Beiträge
Tabelle in mehreren aufteilen
Mamo

Hallo,
ich rauche eure Hilfe;
Ich habe mehrere Tabellen, gleich aufgebaut, in einem Excelblatt. Nun möchte ich jede Tabelle in einem Blatt speichern. Das Blatt soll benannt werden nach der Bezeichnung der einzelnen Tabellen, was in Spalte B direkt über die Tabelle (Mathematik, usw) ste...
29.06.2016 12:31:18
Thread-ID: 1501556
11 Beiträge
Tabelle nach mehreren Kriterien durchsuchen
Lisa

Hallo zusammen,
ich habe mit VBA eine User Form programmiert, mit der man eine Liste nach mehreren Kriterien durchsuchen kann (WNV, Verfahrensnummer, Lack, Glanz, Sachnummer).
Das funktioniert soweit auch ganz gut, jedoch habe ich festgestellt, dass nicht immer nur in der gewollten Spal...
15.05.2017 14:09:31
Thread-ID: 1558399
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
6
6
4
17
2
1
1
10
2
18
27
13
9
5
2
4
9
3
2
8
2
2
5
5