Power Query, Leere Spalten entfernen

 

--- SCHNIPP ---

let 

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

    EntferneLeereSpalten = 

        let

            LeereSpalten = List.Transform(Table.ToColumns(Quelle), each List.IsEmpty(List.RemoveNulls(_))),

            TabellenSpalten = Table.ColumnNames(Quelle),

            EntferneSpalten = List.Transform(List.PositionOf(LeereSpalten, true, Occurrence.All), each TabellenSpalten{_})

        in  

            Table.RemoveColumns(Quelle, EntferneSpalten)

in  

    EntferneLeereSpalten

--- SCHNAPP ---

--- SCHNIPP ---

(tblInput as table) as table =>

let 

    Quelle = tblInput,

    LeereSpalten = List.Transform(Table.ToColumns(Quelle), each List.IsEmpty(List.RemoveNulls(_))),

    TabellenSpalten = Table.ColumnNames(Quelle),

    EntferneSpalten = List.Transform(List.PositionOf(LeereSpalten, true, Occurrence.All), each TabellenSpalten{_}),

    TabelleEntferneLeereSpalten = Table.RemoveColumns(Quelle, EntferneSpalten)

in

    TabelleEntferneLeereSpalten

--- SCHNAPP ---