leider kriege ich eine Fehlermeldung, dass die Datei nicht gefunden wird und weis nicht warum ?! Wenn mir jmd kurz helfen könnte wäre ich euch sehr dankbar..
Vielen Dank im Vorraus...
Private Sub CommandButton1_Click()
ThisWorkbook.Worksheets("Tabelle2").Range("A8:Z1000").Delete
'2. Datensatz wird Importiert
'Textbox verändert Zeile K1
Cells(1, "K") = TextBox1.Value
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & ActiveWorkbook.Path & Me.Cells(1, _
_
"K"), Destination:=Range("A8"))
.Name = "EAT_test"
.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 = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub