Filtern nach KGRÖSSTE in PQ

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

let Quelle = Excel.CurrentWorkbook(){[Name="ganze"]}[Content], #"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"f", type date}}), #"Angefügte Abfrage" = Table.Combine({#"Geänderter Typ", Leute}), #"Nach oben gefüllt" = Table.FillUp(#"Angefügte Abfrage",{"Description"}), #"Gefilterte Zeilen1" = Table.SelectRows(#"Nach oben gefüllt", each ([f] > null)), #"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(#"Gefilterte Zeilen1", "Pruef", each if [f]>=[Description] then 1 else 0), #"Gefilterte Zeilen" = Table.SelectRows(#"Hinzugefügte benutzerdefinierte Spalte", each ([Pruef] > 0)), #"Geänderter Typ1" = Table.TransformColumnTypes(#"Gefilterte Zeilen",{{"Pruef", Int64.Type}}), #"Berechnete Summe" = List.Sum(#"Geänderter Typ1"[Pruef]) in #"Berechnete Summe"

Hallo Werner,
sorry war heute echt ein anstrengender Tag, kam erst jetzt dazu, auch deinen Vorschlag zu testen.

Aber es gab zwei Probleme, erstmal jetzt mein vollständiger Code, nachdem ich deinen in meinen eingebaut habe:

let

    Quelle = Excel.CurrentWorkbook(){[Name="Tabelle7"]}[Content],

    #"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"c", type date}, {"i", type text}, {"f", type date}}),

    #"Entfernte Spalten" = Table.RemoveColumns(#"Geänderter Typ",{"j", "l", "m", "n", "o", "p"}),

    #"Sortierte Zeilen" = Table.Sort(#"Entfernte Spalten",{{"e", Order.Ascending}, {"b", Order.Ascending}}),

    #"Angefügte Abfrage" = Table.Combine({#"Sortierte Zeilen", Leute}),

    #"Nach oben gefüllt" = Table.FillUp(#"Angefügte Abfrage",{"Description"}),

    #"Gefilterte Zeilen1" = Table.SelectRows(#"Nach oben gefüllt", each ([f] > null)),

    #"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(#"Gefilterte Zeilen1", "Pruef", each if [f]>=[Description] then 1 else 0),

    #"Gefilterte Zeilen" = Table.SelectRows(#"Hinzugefügte benutzerdefinierte Spalte", each ([Pruef] > 0)),

    #"Geänderter Typ1" = Table.TransformColumnTypes(#"Gefilterte Zeilen",{{"Pruef", Int64.Type}}),

    #"Berechnete Summe" = List.Sum(#"Geänderter Typ1"[Pruef]),

    #"Hinzugefügte benutzerdefinierte Spalte2" = Table.AddColumn(#"Berechnete Summe", "Benutzerdefiniert", each if [c] = null then "MRS " & [b] & " - " & [e] & " (" & Text.From([f]) & ")" else "MRS " & Text.PadStart([i], 5, "0") & " " & [b] & " (" & Text.From([c]) & ") - " & [e] & " (" & Text.From([f]) & ") " & Text.From([g]) & "-" & Text.From([h])),

    #"Umbenannte Spalten" = Table.RenameColumns(#"Hinzugefügte benutzerdefinierte Spalte2",{{"Benutzerdefiniert", "l"}}),

    #"Ersetzter Wert" = Table.ReplaceValue(#"Umbenannte Spalten",":","",Replacer.ReplaceText,{"l"}),

    #"Ersetzter Wert1" = Table.ReplaceValue(#"Ersetzter Wert","""","",Replacer.ReplaceText,{"l"}),

    #"Ersetzter Wert2" = Table.ReplaceValue(#"Ersetzter Wert1","?","",Replacer.ReplaceText,{"l"}),

    #"Ersetzter Wert3" = Table.ReplaceValue(#"Ersetzter Wert2","""","",Replacer.ReplaceText,{"l"}),

    #"Ersetzter Wert4" = Table.ReplaceValue(#"Ersetzter Wert3","?","",Replacer.ReplaceText,{"l"})

in

    #"Ersetzter Wert4"

Zum einen, steht in der Spalte Pruef nur eine 1, alles andere 0, somit wird auch nur diese eine Zeile gefiltert. Dies ist die Zeile mit dem jünsten Datum.

Zum anderen, sagte er jetzt bei der BS2 Der Wert 1 könne nicht in den Typ Table konvertiert werden. An dieser Stelle gab es mit de Code auf Yals Vorschlag aufbauend keine Probleme, ich muss also irgendwas falsch gemacht haben, als ich deinen Teil versucht habe, einzufügen:

let

    Quelle = Excel.CurrentWorkbook(){[Name="Tabelle7"]}[Content],

    #"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"c", type date}, {"i", type text}, {"f", type date}}),

    #"Entfernte Spalten" = Table.RemoveColumns(#"Geänderter Typ",{"j", "l", "m", "n", "o", "p"}),

    #"Sortierte Zeilen" = Table.Sort(#"Entfernte Spalten",{{"e", Order.Ascending}, {"b", Order.Ascending}}),

    #"Gefilterte Zeilen" = Table.SelectRows(#"Sortierte Zeilen", each List.ContainsAny(Liste, {[f]})),

    #"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(#"Gefilterte Zeilen", "Benutzerdefiniert", each if [c] = null then "MRS " & [b] & " - " & [e] & " (" & Text.From([f]) & ")" else "MRS " & Text.PadStart([i], 5, "0") & " " & [b] & " (" & Text.From([c]) & ") - " & [e] & " (" & Text.From([f]) & ") " & Text.From([g]) & "-" & Text.From([h])),

    #"Umbenannte Spalten" = Table.RenameColumns(#"Hinzugefügte benutzerdefinierte Spalte",{{"Benutzerdefiniert", "l"}}),

    #"Ersetzter Wert" = Table.ReplaceValue(#"Umbenannte Spalten",":","",Replacer.ReplaceText,{"l"}),

    #"Ersetzter Wert1" = Table.ReplaceValue(#"Ersetzter Wert","""","",Replacer.ReplaceText,{"l"}),

    #"Ersetzter Wert2" = Table.ReplaceValue(#"Ersetzter Wert1","?","",Replacer.ReplaceText,{"l"}),

    #"Ersetzter Wert3" = Table.ReplaceValue(#"Ersetzter Wert2","""","",Replacer.ReplaceText,{"l"}),

    #"Ersetzter Wert4" = Table.ReplaceValue(#"Ersetzter Wert3","?","",Replacer.ReplaceText,{"l"})

in

    #"Ersetzter Wert4"

Aber ich kann auch verstehen wenn du jetzt sagst, die Mühe brauchen wir uns nicht mehr machen, ich habe ja eine Lösung.

Schönen Abend noch
Christian

let Quelle = Excel.CurrentWorkbook(){[Name="Tabelle7"]}[Content], #"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"a", type text}, {"b", type text}, {"c", type datetime}, {"d", type text}, {"e", type text}, {"f", type number}, {"g", Int64.Type}, {"h", Int64.Type}, {"i", Int64.Type}, {"j", type datetime}, {"k", Int64.Type}, {"l", type datetime}, {"m", type datetime}, {"n", Int64.Type}, {"o", Int64.Type}, {"p", Int64.Type}}), #"Sortierte Zeilen" = Table.Sort(#"Geänderter Typ",{{"f", Order.Descending}}), #"Entfernte Duplikate" = Table.Distinct(#"Sortierte Zeilen", {"e"}), #"Hinzugefügter Index" = Table.AddIndexColumn(#"Entfernte Duplikate", "Index", 1, 1, Int64.Type), #"Gefilterte Zeilen" = Table.SelectRows(#"Hinzugefügter Index", each ([Index] = 30)), #"Entfernte Spalten" = Table.RemoveColumns(#"Gefilterte Zeilen",{"g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "Index", "a", "b", "c", "d", "e"}), #"Umbenannte Spalten" = Table.RenameColumns(#"Entfernte Spalten",{{"f", "Vergl_Datum"}}) in #"Umbenannte Spalten"

let Quelle = Excel.CurrentWorkbook(){[Name="Tabelle7"]}[Content], #"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"a", type text}, {"b", type text}, {"c", type datetime}, {"d", type text}, {"e", type text}, {"f", Int64.Type}, {"g", Int64.Type}, {"h", Int64.Type}, {"i", Int64.Type}, {"j", type datetime}, {"k", Int64.Type}, {"l", type datetime}, {"m", type datetime}, {"n", Int64.Type}, {"o", Int64.Type}, {"p", Int64.Type}}), #"Angefügte Abfrage" = Table.Combine({#"Geänderter Typ", Vergleichsdatum}), #"Nach oben gefüllt" = Table.FillUp(#"Angefügte Abfrage",{"Vergl_Datum"}), #"Gefilterte Zeilen" = Table.SelectRows(#"Nach oben gefüllt", each ([f] > null)), #"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(#"Gefilterte Zeilen", "Pruef", each if [f] >= [Vergl_Datum] then 1 else 0), #"Gefilterte Zeilen1" = Table.SelectRows(#"Hinzugefügte benutzerdefinierte Spalte", each ([Pruef] =1)), #"Geänderter Typ1" = Table.TransformColumnTypes(#"Gefilterte Zeilen1",{{"Pruef", Int64.Type}}), #"Berechnete Summe" = List.Sum(#"Geänderter Typ1"[Pruef]) in #"Berechnete Summe"

Hallo Werner,

danke erstmal für die Mühe.

Ich weiß nicht, bei mir gibt wie dein Code ja schon sagt, dieser eine Summe (99) aus.
Welches der Anzahl der Zeilen entspricht, die ich hätte ausgeben wollen.
Meine Bitte war ja die Tabelle nach Daten ab dem bestimmten Datum (welches korrekt bestimmt wurde) gefiltert werden.

Abgesehen davon, ich wundere mich dass du keinen Bezug auf die Abfrage "Leute" nimmst, sondern das auf dem direkten Weg machst. Der Bezug auf Leute hatte einen gewissen Sinn.

In "Ganze" stehen viele Geburtsdaten mehrfach, weil viele Personen mehrfach in der Liste stehen.
In "Leute" steht jede Person nur einmal.

Wenn es jetzt irgendwann mal soweit kommt, dass mehrere Leute in der Liste stehen, die am selben Tag geboren sind, habe ich mit deiner Lösung das Problem, dass du mit Duplikate Entfernen in "Ganze" Personen komplett aus der Liste löschst, während das mit Bezug auf "Leute" nicht passiert, weil da jede Person nur einmal steht und Duplikate gar nicht mehr erst entfernt werden müssen.

Hoffe du verstehst was ich meine
Christian

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Filtern nach KGRÖSSTE in PQ

21 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)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread