(Forum) Liste von doppelt vorhandenen Werten erzeugen

Quelle:  https://www.herber.de/cgi-bin/eachthread.pl?idx=1990575
Stand: 11.09.2024 13:00

Hier der Eröff­nungs­beitrag aus dem Forum:

Bitte beacht­en Sie die hier beschriebene Beson­der­heit in Sachen des Her­ber-Forums.

Hmmm, trotz mehrma­li­gen Lesens der Beiträge bin ich mir nicht ganz sich­er, welch­es Ergeb­nis seit­ens des Fragestellers angestrebt wird. Meine Inter­pre­ta­tion ist diese: Es soll das Ergeb­nis aus den Spal­ten O:P gener­iert wer­den, allerd­ings auf eine „ele­gan­tere“ Art und Weise und ohne die LET() und LAMDA() – Funk­tio­nen.

Auf der Basis der gegebe­nen Muster-Tabelle habe ich mit diesem M-Code in zwei Pow­er Query-Abfra­gen ein adäquates Ergeb­nis gefer­tigt:

(Der Code für die importierten Roh-Dat­en)

let
    Quelle = Excel.CurrentWorkbook(){[Name="Tabelle3"]}[Content],
    #"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Liste von Stoffen", type text}, {"Name ", type text}}),
    #"Zusammengeführte Abfragen" = Table.NestedJoin(#"Geänderter Typ", {"Liste von Stoffen"}, #"Tabelle3 (2)", {"Liste von Stoffen"}, "Tabelle3 (2)", JoinKind.Inner),
    #"Entfernte Spalten" = Table.RemoveColumns(#"Zusammengeführte Abfragen",{"Tabelle3 (2)"}),
    #"Sortierte Zeilen" = Table.Sort(#"Entfernte Spalten",{{"Liste von Stoffen", Order.Ascending}})
in
    #"Sortierte Zeilen"

(Der Code für den Fil­ter-Vor­gang)

let
    Quelle = Excel.CurrentWorkbook(){[Name="Tabelle3"]}[Content],
    #"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Liste von Stoffen", type text}, {"Name ", type text}}),
    // Ein ZÄHLENWENN() der 'Liste von Stoffen' in den Rohdaten
    #"Gruppierte Zeilen" = Table.Group(#"Geänderter Typ", {"Liste von Stoffen"}, {{"Anzahl", each Table.RowCount(_), Int64.Type}}),
    // Nur die mehrfachen Werte behalten
    #"Gefilterte Zeilen" = Table.SelectRows(#"Gruppierte Zeilen", each [Anzahl] > 1),
    // Muss nicht sein, ist IMHO aus der Sicht der "Datenhygiene" sinnvoll
    #"Entfernte Spalten" = Table.RemoveColumns(#"Gefilterte Zeilen",{"Anzahl"})
in
    #"Entfernte Spalten"

Noch ein Wort zum The­ma „Ele­ganz“: Auf der einen Seite sage ich immer wieder, dass Ele­ganz auf den Lauf­steg gehört und auf der anderen Seite finde ich es erhe­blich sin­nvoller und auch „schön­er“, wenn ein Code auch nach einem län­geren Zeitraum noch gut nachvol­lziehbar ist, auch für Kol­legin­nen und Kol­le­gen, welche aus­re­ichende Basisken­nt­nisse in Pow­er Query haben. Oder um es ganz deut­lich zu sagen: Das Ganze in eine einzige Abfrage zu „quetschen“ mag aus der Sicht von manchen IT-Fans schick sein, hat aber mit Benutzer­fre­undlichkeit wenig zu tun.

Und hier, beim Stich­wort last but not least find­en Sie noch einen Hin­weis, wo und wie Sie Antworten auf eventuelle Fra­gen oder auch die aus­gear­beit­ete Datei bekom­men kön­nen. Grundle­gen­des zum The­ma M-Code lesen Sie hier im Blog nach.