Hallo Yannick,
versuchs mal so:
Sub Rechnungstabelle_Erstellen()
Dim Monat As String
Monat = Sheets("CRM_Verwaltung").Range("DO14").Value
'
' Query_Übernachtungen_1_1 Makro
'
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
Gruss Tor
|