Sub
Rechnungstabelle_Erstellen()
Dim
Monat
As
String
Monat = Sheets(
"CRM_Verwaltung"
).Range(
"DO14"
).Value
ActiveWorkbook.Queries.Add Name:=
"Übernachtungen_1_1"
, Formula:= _
"let"
& Chr(13) &
""
& Chr(10) &
" Quelle = Excel.CurrentWorkbook(){[Name="
"Tabelle1"
"]}[Content],"
& Chr(13) &
""
& Chr(10) &
" #"
"Gefilterte Zeilen"
" = Table.SelectRows(Quelle, each ([Monat Jahr Text] =<strong> "
& Monat &
") </strong>and ([Zahlungsart] <> "
"Selbstzahler"
")),"
& Chr(13) &
""
& Chr(10) &
" #"
"Duplizierte Spalte"
" = Table.DuplicateColumn(#"
"Gefilterte Zeilen"
", "
"Monat Jahr Zahl"
", "
"Monat Jahr Zahl - Kopie"
"),"
& Chr(13) &
""
& Chr(10) &
" #"
"Duplizierte Spalt"
& _
"e1"
" = Table.DuplicateColumn(#"
"Duplizierte Spalte"
", "
"Klient"
", "
"Klient - Kopie"
"),"
& Chr(13) &
""
& Chr(10) &
" #"
"Duplizierte Spalte2"
" = Table.DuplicateColumn(#"
"Duplizierte Spalte1"
", "
"Zahlungsart"
", "
"Zahlungsart - Kopie"
"),"
& Chr(13) &
""
& Chr(10) &
" #"
"Zusammengeführte Spalten"
" = Table.CombineColumns(Table.TransformColumnTypes(#"
"Duplizierte Spalte2"
", {{"
"Monat Jahr Zahl - Kopie"
", type text}}, "
"d"
& _
"e-CH"
"),{"
"Monat Jahr Zahl - Kopie"
", "
"Klient - Kopie"
", "
"Zahlungsart - Kopie"
"},Combiner.CombineTextByDelimiter("
"_"
", QuoteStyle.None),"
"Zusammengeführt"
"),"
& Chr(13) &
""
& Chr(10) &
" #"
"Duplizierte Spalte3"
" = Table.DuplicateColumn(#"
"Zusammengeführte Spalten"
", "
"Verrechnungskey"
", "
"Verrechnungskey - Kopie"
"),"
& Chr(13) &
""
& Chr(10) &
" #"
"Duplizierte Spalte4"
" = Table.DuplicateColumn(#"
"Duplizierte Sp"
& _
"alte3"
", "
"Betrag"
", "
"Betrag - Kopie"
"),"
& Chr(13) &
""
& Chr(10) &
" #"
"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"
"),"
& Chr(13) &
""
& Chr(10) &
" #"
"Neu angeordnete Spalten"
" = Ta"
& _
"ble.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"
"}),"
& Chr(13) &
""
& Chr(10) &
" #"
"Entfernte Spalten"
" = Table.RemoveColu"
& _
"mns(#"
"Neu angeordnete Spalten"
",{"
"Listenfeldzeile"
", "
"Monat Text"
", "
"Monat Zahl"
", "
"Jahr"
", "
"Monat Jahr Zahl"
", "
"Monat Jahr Text"
", "
"Datum"
", "
"Zahlungsart"
", "
"Schulden"
", "
"Gutschein"
", "
"Bemerkungen2"
"})"
& Chr(13) &
""
& Chr(10) &
"in"
& Chr(13) &
""
& Chr(10) &
" #"
"Entfernte Spalten"
""
Workbooks(
"NOST_CRM_V5.xlsm"
).Connections.Add2
"Abfrage - Übernachtungen_1_1"
, _
"Verbindung mit der Abfrage 'Übernachtungen_1_1' in der Arbeitsmappe."
, _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Übernachtungen_1_1;Extended Properties="
""
""
_
,
"SELECT * FROM [Übernachtungen_1_1]"
, 2