mit diesem Code hole ich mir eine .Txt Datei. Bis heut sind alle Zellen oberhalb A8 immer stehen geblieben jetzt Rutschen sie aber nach rechts wenn der Text importiert wird. Also meine Überschrift fliegt weg. Ich erkenne den Fehler nicht :-( . Kann mir jmd helfen beim rüberschaun?
Dim connectionStr As String
Cells(1, "K") = TextBox3.Value
connectionStr = "Text;" & ActiveWorkbook.Path & "\Import\" & Me.Cells(1, "K")
With ActiveSheet.QueryTables.Add(Connection:=connectionStr, Destination:=Range("A8"))
.Name = "1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierNone
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = ""
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With