Hallo Thorsten,
mein Vorschlag scheint weniger Spuren als schädlinge hinterlassen zu haben.
In der Datei, im Menü "Daten", "Abfragen anzeigen" anklicken,
auf die Abfrage "Bestand_und_Verkauf (3)" rechtsklciken und "Bearbeiten..." auswählen,
in Power Query, im Menü "Start", "erweiterte Editor" auswählen,
darin den gesamte Code löschen und durch folgendes ersetzen:
let
Quelle = Csv.Document(File.Contents("V:\Grünplan\Bestand_und_Verkauf.txt"),[Delimiter=" ", Columns=12, Encoding=1252, QuoteStyle=QuoteStyle.None]),
#"Höher gestufte Header" = Table.PromoteHeaders(Quelle, [PromoteAllScalars=true]),
#"Geänderter Typ" = Table.TransformColumnTypes(#"Höher gestufte Header",{{"Kulturname", type text}, {"Verfahren", type text}, {"Einheiten", Int64.Type}, {"Verkauf", Int64.Type}, {"Bestand", Int64.Type}, {"Fläche in m²", Int64.Type}, {"", type text}}),
#"Division eingefügt" = Table.AddColumn(#"Geänderter Typ", "Runden", each Number.Round([#"Fläche in m²"] / 7.38, 0), type number),
#"Entfernte Spalten" = Table.RemoveColumns(#"Division eingefügt",{"Einheiten", "Verkauf", "fertig", "Bestand", "", "Fläche in m²"}),
#"Entfernte oberste Zeilen" = Table.Skip(#"Entfernte Spalten",1),
#"Zusammengeführte Spalten" = Table.CombineColumns(#"Entfernte oberste Zeilen",{"Kulturname", "Verfahren"},Combiner.CombineTextByDelimiter(" ", QuoteStyle.None),"Kulturname"),
#"Entfernte Spalten1" = Table.RemoveColumns(#"Zusammengeführte Spalten",{"_1", "_2", "_3", "_4"}),
#"Entfernte leere Zeilen" = Table.SelectRows(#"Entfernte Spalten1", each not List.IsEmpty(List.RemoveMatchingItems(Record.FieldValues(_), {"", null}))),
#"Entfernte untere Zeilen" = Table.RemoveLastN(#"Entfernte leere Zeilen",2),
Haus1 = Table.AddColumn(#"Entfernte untere Zeilen", "Haus 1", each ""),
Bahn1 = Table.AddColumn(Haus1, "Bahn 1", each ""),
Tisch1 = Table.AddColumn(Bahn1, "Tisch 1", each ""),
Schaedlinge1 = Table.AddColumn(Tisch1, "Schädlinge 1", each ""),
Haus2 = Table.AddColumn(Schaedlinge1, "Haus 2", each ""),
Bahn2 = Table.AddColumn(Haus2, "Bahn 2", each ""),
Tisch2 = Table.AddColumn(Bahn2, "Tisch 2", each ""),
Schaedlinge2 = Table.AddColumn(Tisch2, "Schädlinge 2", each ""),
Haus3 = Table.AddColumn(Schaedlinge2, "Haus 3", each ""),
Bahn3 = Table.AddColumn(Haus3, "Bahn 3", each ""),
Tisch3 = Table.AddColumn(Bahn3, "Tisch 3", each ""),
Schaedlinge3 = Table.AddColumn(Tisch3, "Schädlinge 3", each ""),
Haus4 = Table.AddColumn(Schaedlinge3, "Haus 4", each ""),
Bahn4 = Table.AddColumn(Haus4, "Bahn 4", each ""),
Tisch4 = Table.AddColumn(Bahn4, "Tisch 4", each ""),
Schaedlinge4 = Table.AddColumn(Tisch4, "Schädlinge 4", each ""),
Haus5 = Table.AddColumn(Schaedlinge4, "Haus 5", each ""),
Bahn5 = Table.AddColumn(Haus5, "Bahn 5", each ""),
Tisch5 = Table.AddColumn(Bahn5, "Tisch 5", each ""),
Schaedlinge5 = Table.AddColumn(Tisch5, "Schädlinge 5", each "")
in
Schaedlinge5
im Menü "Datei" , "Schliessen & laden".
was ist gemacht worden? Es sind 20 leere Spalten (5x "Haus,Tisch,Bahn,Schädlinge") eingefügt worden
VG
Yal