Daten aus Liste nach Kriterien anzeigen

Hallo liebes Forum,
ich brauche mal eure Hilfe bei einer Problemstellung und frage euch, ob dies mit VBA möglich ist.
In einer Excel-Tabelle habe ich Stellplätze auf denen verschiedene Produkte (auch mehrere Produkte auf einem Platz) liegen. Jetzt möchte ich gerne aufgrund von Optimierungen die Mischplätze zusammenfassen. Dazu sollen mir in einem extra Reiter alle Plätze von den Produkten angezeigt werden, von denen die Paletten geholt werden sollen. Dabei sollen nur die gewählt werden, wenn auf einem Platz mehr als 3 Kartons liegen. 1 Excelzeile = 1 Karton.
Bsp. Für den Ball gibt es 11 Kartons auf 4 Plätzen
Platz A mit 4 Kartons
Platz B mit 2 Kartons
Platz C mit 3 Kartons
Platz D mit 1 Karton
Das gleiche bei dem Produkt Mütze
Jetzt soll mir die Auswertung anzeigen, dass für den Ball Paletten von den Plätzen A und B geholt werden sollen. (siehe manuell den Reiter Output).
Ich hoffe ihr könnt mir weiterhelfen. Vielen Dank vorab.
Dennis
https://www.herber.de/bbs/user/153677.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Dennis,
... für Deine Zielstellung, so wie ich sie interpretiere, d.h. mit 11 Bällen, 8 Mützen und je 7 Stiften und Tischen..
Zunächst Hilfsabfrage:


let
Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
#"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Lagerplatz", type text}, {"ID", Int64.Type}, {"Kennung", Int64.Type}, {"Mwt", Int64.Type}, {"Menge", Int64.Type}, {"EAN", Int64.Type}, {"MaterialMwt", type text}}),
#"Gruppierte Zeilen" = Table.Group(#"Geänderter Typ", {"ID", "Kennung", "MaterialMwt"}, {{"Anzahl", each Table.RowCount(_), Int64.Type}}),
#"Gefilterte Zeilen1" = Table.SelectRows(#"Gruppierte Zeilen", each ([Anzahl] = 4 or [Anzahl] = 5)),
#"Gefilterte Zeilen" = Table.SelectRows(#"Gefilterte Zeilen1", each ([Anzahl] = 4 or [Anzahl] = 5)),
#"Entfernte Duplikate" = Table.Distinct(#"Gefilterte Zeilen", {"Kennung"})
in
#"Entfernte Duplikate"

Dann das Ergebnislisting:


let
Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
#"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Lagerplatz", type text}, {"ID", Int64.Type}, {"Kennung", Int64.Type}, {"Mwt", Int64.Type}, {"Menge", Int64.Type}, {"EAN", type text}, {"MaterialMwt", type text}}),
#"Zusammengeführte Abfragen" = Table.NestedJoin(#"Geänderter Typ", {"Kennung", "MaterialMwt"}, Kartons_zählen, {"Kennung", "MaterialMwt"}, "Kartons_zählen", JoinKind.LeftOuter),
#"Erweiterte Kartons_zählen" = Table.ExpandTableColumn(#"Zusammengeführte Abfragen", "Kartons_zählen", {"Anzahl"}, {"Anzahl"}),
#"Gefilterte Zeilen" = Table.SelectRows(#"Erweiterte Kartons_zählen", each ([Anzahl]  null)),
#"Entfernte Spalten" = Table.RemoveColumns(#"Gefilterte Zeilen",{"HSp", "Anzahl"})
in
#"Entfernte Spalten"

Bei Rückfragen dazu komme ich wahrscheinlich erst morgen dazu zu reagieren.
Mehr zu PQ (Power Query) sieh auch z.B. mal hier: https://excelhero.de/power-query/power-query-ganz-einfach-erklaert/
Gruß Werner
.. , - ...

Sub sammeln() Dim lRowIn&, sSuchText$, lLastRow& '* Zeile zum Daten einfügen ermitteln lRowIn = Cells(Rows.Count, "G").End(xlUp).Row + 1 '* Userform zur Auswahl des Materialnamens öffnen UF_MaterialNamenUnikate.Show '* Array-Formeln zum sammeln der gesuchten Daten einfügen Range("A" & lRowIn & ":G" & lRowIn + 25).FormulaLocal = _ "=WENNFEHLER(INDEX(Input!A:A;AGGREGAT(15;6;ZEILE(Q$2:Q$67)/(Input!$G$2:$G$67=""" & sMaterialName & """);ZEILE(Q1)));"""")" '* Formeln in Werte umwandeln Range("A" & lRowIn & ":G" & lRowIn + 25).Value = Range("A" & lRowIn & ":G" & lRowIn + 25).Value '* Spalte F in Zahlenformat ändern Range("B" & lRowIn & ":F" & lRowIn + 25).NumberFormat = "0" '* die unbenutzten Zeilen löschen lRowIn = Cells(Rows.Count, "G").End(xlUp).Row + 1 lLastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row Rows(lRowIn & ":" & lLastRow).Delete '* Datei speichern, um die erste "echte" frei Zeile ermitteln zu können ActiveWorkbook.Save End Sub

Beliebteste Forumthreads (12 Monate)

Daten aus Liste nach Kriterien anzeigen

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus Liste nach Kriterien anzeigen

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread