I made a Querie:
ActiveWorkbook.Queries.Add Name:="QueryTab", Formula:="let" & Chr(13) & "" & Chr(10) & _" Bron = Excel.CurrentWorkbook(){[Name=""Finost_OI_1""]}[Content]," & Chr(13) & "" & Chr(10) & _" #""Type gewijzigd"" = Table.TransformColumnTypes(Bron,{{""Date"", type date}...