Also ich habe eine neue Datei. Dort soll die csv Datei automatisch in eine Tabelle importiert werden (welche Datei soll man aber über ein erscheinendes Fenster auswählen können). Die Daten sollen nicht sortiert werden.

Dieses Makro müsste genau das erfüllen, was ich bis jetzt will, jedoch kommt beim starten immer dieser Error:

Expression.Error: Der Import "varPfadUndDatei" entspricht keinem Export. Dies ist möglicherweise auf einen fehlenden Modulverweis zurückzuführen.

Sub Makro2()
'
' Makro2 Makro
'

'
    Dim varPfadUndDatei As Variant
    varPfadUndDatei = Application.GetOpenFilename("CSV Files (*.csv),& *.csv")
    ActiveWorkbook.Queries.Add Name:="meas01 (2)", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Quelle = Csv.Document(File.Contents(varPfadUndDatei),[Delimiter="","", Columns=5, Encoding=1252, QuoteStyle=QuoteStyle.None])," & Chr(13) & "" & Chr(10) & "    #""Typ ändern"" = Table.TransformColumnTypes(Quelle,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", type text}, {""Column5"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Typ ändern"""
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""meas01 (2)"";Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [meas01 (2)]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "meas01__2"
        .Refresh BackgroundQuery:=False
    End With
    Range("G11").Select
End Sub