Ganz schönes Chaos da, in deinem Query - kein Wunder das du nicht durchsiehst.
Mal leserlicher:
Set objWkbQ = ActiveWorkbook.Queries.Add( _
Name:="Übernachtungen_1_1", _
Formula:="let" & vbNewLine & _
"Quelle = Excel.CurrentWorkbook(){[Name=""Tabelle1""]}[Content]," & vbNewLine & _
"#""Gefilterte Zeilen"" = Table.SelectRows(Quelle, each ([Monat Jahr Text] =""November 2020"") and ([Zahlungsart] <> ""Selbstzahler""))," & vbNewLine & _
"#""Duplizierte Spalte"" = Table.DuplicateColumn(#""Gefilterte Zeilen"", ""Monat Jahr Zahl"", ""Monat Jahr Zahl - Kopie"")," & vbNewLine & _
"#""Duplizierte Spalte1"" = Table.DuplicateColumn(#""Duplizierte Spalte"", ""Klient"", ""Klient - Kopie"")," & vbNewLine & _
"#""Duplizierte Spalte2"" = Table.DuplicateColumn(#""Duplizierte Spalte1"", ""Zahlungsart"", ""Zahlungsart - Kopie"")," & vbNewLine & _
"#""Zusammengeführte Spalten"" = Table.CombineColumns(Table.TransformColumnTypes(#""Duplizierte Spalte2"", {{""Monat Jahr Zahl - Kopie"", type text}}, ""de-CH""),{""Monat Jahr Zahl - Kopie"", ""Klient - Kopie"", ""Zahlungsart - Kopie""},Combiner.CombineTextByDelimiter(""_"", QuoteStyle.None),""Zusammengeführt"")," & vbNewLine & _
"#""Duplizierte Spalte3"" = Table.DuplicateColumn(#""Zusammengeführte Spalten"", ""Verrechnungskey"", ""Verrechnungskey - Kopie"")," & vbNewLine & _
"#""Duplizierte Spalte4"" = Table.DuplicateColumn(#""Duplizierte Spalte3"", ""Betrag"", ""Betrag - Kopie"")," & vbNewLine & _
"#""Zusammengeführte Spalten1"" = Table.CombineColumns(Table.TransformColumnTypes(#""Duplizierte Spalte4"", {{""Betrag - Kopie"", type text}}, ""de-CH""),{""Verrechnungskey - Kopie"", ""Betrag - Kopie""},Combiner.CombineTextByDelimiter(""_"", QuoteStyle.None),""Zusammengeführt.1"")," & vbNewLine & _
"#""Neu angeordnete Spalten"" = Table.ReorderColumns(#""Zusammengeführte Spalten1"",{""Zusammengeführt"", ""Verrechnungskey"", ""Zusammengeführt.1"", ""Klient"", ""Betrag"", ""Listenfeldzeile"", ""Monat Text"", ""Monat Zahl"", ""Jahr"", ""Monat Jahr Zahl"", ""Monat Jahr Text"", ""Datum"", ""Zahlungsart"", ""Schulden"", ""Gutschein"", ""Bemerkungen2""})," & vbNewLine & _
" #""Entfernte Spalten"" = Table.RemoveColumns(#""Neu angeordnete Spalten"",{""Listenfeldzeile"", ""Monat Text"", ""Monat Zahl"", ""Jahr"", ""Monat Jahr Zahl"", ""Monat Jahr Text"", ""Datum"", ""Zahlungsart"", ""Schulden"", ""Gutschein"", ""Bemerkungen2""})" & vbNewLine & _
"in" & vbNewLine & _
"#""Entfernte Spalten""")
Mit der Variable Monat, sollte es dann so ausschauen:
Dim objWkbQ As Excel.WorkbookQuery
Dim Monat As String
Monat = Sheets("CRM_Verwaltung").Range("DO14").Value
Set objWkbQ = ActiveWorkbook.Queries.Add( _
Name:="Übernachtungen_1_1", _
Formula:="let" & vbNewLine & _
"Quelle = Excel.CurrentWorkbook(){[Name=""Tabelle1""]}[Content]," & vbNewLine & _
"#""Gefilterte Zeilen"" = Table.SelectRows(Quelle, each ([Monat Jahr Text] = """ & Monat & """) and ([Zahlungsart] <> ""Selbstzahler""))," & vbNewLine & _
"#""Duplizierte Spalte"" = Table.DuplicateColumn(#""Gefilterte Zeilen"", ""Monat Jahr Zahl"", ""Monat Jahr Zahl - Kopie"")," & vbNewLine & _
"#""Duplizierte Spalte1"" = Table.DuplicateColumn(#""Duplizierte Spalte"", ""Klient"", ""Klient - Kopie"")," & vbNewLine & _
"#""Duplizierte Spalte2"" = Table.DuplicateColumn(#""Duplizierte Spalte1"", ""Zahlungsart"", ""Zahlungsart - Kopie"")," & vbNewLine & _
"#""Zusammengeführte Spalten"" = Table.CombineColumns(Table.TransformColumnTypes(#""Duplizierte Spalte2"", {{""Monat Jahr Zahl - Kopie"", type text}}, ""de-CH""),{""Monat Jahr Zahl - Kopie"", ""Klient - Kopie"", ""Zahlungsart - Kopie""},Combiner.CombineTextByDelimiter(""_"", QuoteStyle.None),""Zusammengeführt"")," & vbNewLine & _
"#""Duplizierte Spalte3"" = Table.DuplicateColumn(#""Zusammengeführte Spalten"", ""Verrechnungskey"", ""Verrechnungskey - Kopie"")," & vbNewLine & _
"#""Duplizierte Spalte4"" = Table.DuplicateColumn(#""Duplizierte Spalte3"", ""Betrag"", ""Betrag - Kopie"")," & vbNewLine & _
"#""Zusammengeführte Spalten1"" = Table.CombineColumns(Table.TransformColumnTypes(#""Duplizierte Spalte4"", {{""Betrag - Kopie"", type text}}, ""de-CH""),{""Verrechnungskey - Kopie"", ""Betrag - Kopie""},Combiner.CombineTextByDelimiter(""_"", QuoteStyle.None),""Zusammengeführt.1"")," & vbNewLine & _
"#""Neu angeordnete Spalten"" = Table.ReorderColumns(#""Zusammengeführte Spalten1"",{""Zusammengeführt"", ""Verrechnungskey"", ""Zusammengeführt.1"", ""Klient"", ""Betrag"", ""Listenfeldzeile"", ""Monat Text"", ""Monat Zahl"", ""Jahr"", ""Monat Jahr Zahl"", ""Monat Jahr Text"", ""Datum"", ""Zahlungsart"", ""Schulden"", ""Gutschein"", ""Bemerkungen2""})," & vbNewLine & _
" #""Entfernte Spalten"" = Table.RemoveColumns(#""Neu angeordnete Spalten"",{""Listenfeldzeile"", ""Monat Text"", ""Monat Zahl"", ""Jahr"", ""Monat Jahr Zahl"", ""Monat Jahr Text"", ""Datum"", ""Zahlungsart"", ""Schulden"", ""Gutschein"", ""Bemerkungen2""})" & vbNewLine & _
"in" & vbNewLine & _
"#""Entfernte Spalten""")
Natürlich ungetestet, ich bastle mir das nicht auch noch zusammen.
Grüße
|