Ganz schönes Chaos da, in deinem Query - kein Wunder das du nicht durchsiehst.
Mal leserlicher:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | 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:
1 2 3 4 | Dim objWkbQ As Excel.WorkbookQuery
Dim Monat As String
Monat = Sheets( "CRM_Verwaltung" ).Range( "DO14" ).Value
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | 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
|