Ich habe hier mal das von mir aufgezeichnete Makro beigefügt. Das Problem ist folgendes.
Ist Zustand: Es wird immer nur die angegebene Datei importiert, die zwar wie sie soll.
Soll Zustand: Öffnen einer Dialogbox Auswahl einer txt. mit Ok bestätigen, und dann einfach weiter wie zuvor
So hier mein makro
Danke für die Hilfe
Sub Datenimport()
Range("A1:AW2001").Select
Selection.ClearContents
Selection.QueryTable.Delete
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;Y:\Eigene Dateien\PG02156.TXT", Destination:=Range("A1:AW2001"))
.Name = "PG02156_2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 15
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
End Sub