Okay, ich glaube ich hab das Problem soweit gelöst, dass ich keine Fehlermeldung bekomme und ich die Datei selber auswählen kann.

Allerdings scheint die Angabe "Abfragedefinition nicht speichern" nicht umgesetzt zu werden. Wenn ich den eingelesenen Bereich lösche kriege ich nämlich die Nachricht "Der gelöschte Bereich ist mit einer Abfrage verknüpft...".

So schaut mein Code aus:

Sub Einlesen()
'
' Einlesen Makro
'

'
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Dim path As Variant
    With Application.FileDialog(msoFileDialogOpen)
        .Show
        path = .SelectedItems(1)
    End With
    MsgBox ("Open: " & path)
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & path _
        , Destination:=Range("$A$1"))
        .Name = "WIWHEAT_1081_1999_613"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
        , 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Gibt es hier eine Möglichkeit das so zu verändern, dass die Abfragedefinition wirklich nicht gespeichert wird?

Grüße

Mara