Aus mehreren Spalten 2 machen mit PQ

Christian · 2024-03-11T12:01:44+00:00

Hallo, würdet ihr mit bitte bei folgendem Problem weiterhelfen: https://www.herber.de/bbs/user/167929.xlsx Ich habe als Ausgangspunkt die Spalten A bis F (im Original sind es knapp 600 Spalten und 400 Zeilen), habe es jetzt zur Veranschaulichung auf 6 Spalten und 101 Zeilen beschränkt. Diese habe ich mit der PQ Abfrage in Spalte J in eine einzige Spalte gebracht. Das was ich aber eigentlich wollte, ist die Spalte M und N, dass im Endeffekt in der ersten Spalte alle Texte stehen, die aus den geraden Spalten stammen untereinander stehen und in der zweiten Spalte alle Texte, die aus den ungeraden Spalten stammen. Wie mache ich das? Vielen Dank Christian

Hallo Daniel,

ja, richtig, man kommt nicht drum, Number.IsEven() zu verwenden. Da PQ stark typisiert ist, muss ein Boolean in einem Zahl umgewandelt, bevor es addiert werden kann.
Ich entdecke gerade, dass Number.From auch aus True 1 und False 0 machen kann. Aber dann muss der Index mit einem geraden Zahl anfangen.

Ich gebe zu, ich hätte zwecks Übersichtlichkeit diese Schritte teilen: prüfen, ob gerade als neue Spalte (Table.AddColumn), Summe bilden (Umwandlung in Zahl weiterhin notwendig. Ich habe hier beide Schritte zusammengefügt) und Quellspalten löschen.

Das Filtern habe ich vorangestellt. Dann sind weniger Zeilen zu behandeln.

let

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

    #"Entpivotierte Spalten" = Table.UnpivotOtherColumns(Quelle, {}, "Attribut", "Wert"),

    #"Gefilterte Zeilen" = Table.SelectRows(#"Entpivotierte Spalten", each ([Attribut] = "Spalte1" or [Attribut] = "Spalte2")),

    #"Hinzugefügter Index" = Table.AddIndexColumn(#"Gefilterte Zeilen", "Index", 0, 1, Int64.Type),

    #"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(#"Hinzugefügter Index", "Temp", each [Index] + Number.From(Number.IsEven([Index]))),

    #"Entfernte Spalten1" = Table.RemoveColumns(#"Hinzugefügte benutzerdefinierte Spalte",{"Index"}),

    #"Pivotierte Spalte" = Table.Pivot(#"Entfernte Spalten1", List.Distinct(#"Entfernte Spalten1"[Attribut]), "Attribut", "Wert"),

    #"Entfernte Spalten" = Table.RemoveColumns(#"Pivotierte Spalte",{"Temp"})

in

    #"Entfernte Spalten"

VG
Yal

Hallo Christian,

dann teste lieber diese letzten Code:

let

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

    #"Entpivotierte andere Spalten" = Table.UnpivotOtherColumns(Quelle, {}, "Attribut", "Wert"),

    #"Hinzugefügter Index1" = Table.AddIndexColumn(#"Entpivotierte andere Spalten", "Index", 0, 1, Int64.Type),

    #"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(#"Hinzugefügter Index1", "Gerade", each Number.From(Number.IsEven([Index]))),

    #"Hinzugefügte benutzerdefinierte Spalte1" = Table.AddColumn(#"Hinzugefügte benutzerdefinierte Spalte", "IndexGerade", each [Index]+[Gerade]),

    #"Andere entfernte Spalten" = Table.SelectColumns(#"Hinzugefügte benutzerdefinierte Spalte1",{"Wert", "Gerade", "IndexGerade"}),

    #"Pivotierte Spalte" = Table.Pivot(Table.TransformColumnTypes(#"Andere entfernte Spalten", {{"Gerade", type text}}, "de-DE"), List.Distinct(Table.TransformColumnTypes(#"Andere entfernte Spalten", {{"Gerade", type text}}, "de-DE")[Gerade]), "Gerade", "Wert"),

    #"Hinzugefügte benutzerdefinierte Spalte2" = Table.AddColumn(#"Pivotierte Spalte", "Benutzerdefiniert", each Number.Mod([IndexGerade], List.Count(Table.ColumnNames(Quelle)))),

    #"Sortierte Zeilen" = Table.Sort(#"Hinzugefügte benutzerdefinierte Spalte2",{{"Benutzerdefiniert", Order.Ascending}, {"IndexGerade", Order.Ascending}}),

    #"Andere entfernte Spalten1" = Table.SelectColumns(#"Sortierte Zeilen",{"1", "0"})

in

    #"Andere entfernte Spalten1"

Vorsicht: funktioniert nur bei einem geraden Anzahl von Spalten gut. Dafür egal wieviel.

VG
Yal

Aus mehreren Spalten 2 machen mit PQ

Forumthread: Aus mehreren Spalten 2 machen mit PQ

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Aus mehreren Spalten 2 machen mit PQ

Forumthread: Aus mehreren Spalten 2 machen mit PQ

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread