Originele query
let
Bron = Excel.CurrentWorkbook(){[Name = "TblNewsFlashes"]}[Content],
DateType = Table.TransformColumnTypes(Bron, {{"Datum", type date}}),
nullVerw = Table.SelectRows(DateType, each ([Organisatie] <> null)),
KolVerw = Table.RemoveColumns(nullVerw, {"Trefwoorden"}),
DrTbl = Table.UnpivotOtherColumns(
KolVerw,
{"Organisatie", "Datum", "Titel", "Korte Samenvatting"},
"Kenmerk",
"Trefwoorden"
),
KolVolgGew = Table.ReorderColumns(
DrTbl,
{"Organisatie", "Datum", "Trefwoorden", "Titel", "Korte Samenvatting"}
),
KiesKol = Table.RemoveColumns(KolVolgGew, {"Kenmerk", "Titel"}),
DatumSort = Table.Sort(KiesKol, {{"Datum", Order.Descending}}),
OverbodigeSpatiesVerw = Table.TransformColumns(
DatumSort,
{{"Korte Samenvatting", Text.Clean, type text}}
)
in
OverbodigeSpatiesVerw
/CODE]
[CODE]Gewijzigde query
let
Bron = Excel.CurrentWorkbook(){[Name = "TblNewsFlashes"]}[Content],
DateType = Table.TransformColumnTypes(Bron, {{"Datum", type date}}),
nullVerw = Table.SelectRows(DateType, each ([Organisatie] <> null)),
DrTbl = Table.UnpivotOtherColumns(
nullVerw,
{"Organisatie", "Datum", "Titel", "Korte Samenvatting"},
"Kenmerk",
"Trefwoorden"
),
KolVolgGew = Table.ReorderColumns(
DrTbl,
{"Organisatie", "Datum", "Trefwoorden", "Titel", "Korte Samenvatting"}
),
KiesKol = Table.RemoveColumns(KolVolgGew, {"Kenmerk", "Titel"}),
DatumSort = Table.Sort(KiesKol, {{"Datum", Order.Descending}}),
OverbodigeSpatiesVerw = Table.TransformColumns(
DatumSort,
{{"Korte Samenvatting", Text.Clean, type text}}
)
in
OverbodigeSpatiesVerw