kann man einen Textdateiimport mit dem QueryTables.add Befehl auch so einfügen das er Quasi nur in das bestehende Layout den Inhalt einfügt? Aktuell scheint er bei mir wenn ich das Macro ausführe den Inhalt mit komplett neue Spalten einzufügen, so dass das bestehende Layout einfach nach rechts verschoben wird. Hier einmal der Code den ich benutzt habe:
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & varDatei _
, Destination:=Range("$A$1"))
.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, 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
Wobei varDatei die zuvor gewählte Datei ist.
Vielen Dank im Vorraus