Hallo, ich benötige bitte eure Fachkenntnis. Ich möchte aus einer .txt nur bestimmte Zeilen importieren. Und zwar Zeile 32-62. Die Zeilen verändern sich nicht, nur die Daten. Die Zeilen sollen dann in eine Tabelle ab Zelle C16 nach unten aufgesplittet werden. Getrennt sind sie mit einem ; (Semikolon). Die txt habe ich angehangen, siehe: https://www.herber.de/bbs/user/174731.txt

Ich nutze derzeit diesen Code, siehe unten, weil er sehr sehr schnell ist!, aber hier kann man leider das einzulesende ENDE (also zeile 32 bis 62) nicht deklarieren, sondern nur den Beginn (.TextFileStartRow).

Hätte bitte jemand eine Idee, wie ich das lösen kann? Im besten Fall mit dem selben schnellen Code oder einem vergleichbar schnellen.
Vielen lieben Dank :)

code
Sub import_jan_txt() 'import txt
Application.EnableEvents = False
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Users\dertob\Desktop\Stundenzettel\data\a11.txt", _
Destination:=Range("$C$16"))
.name = ""
.FieldNames = False 'True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = False
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 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
Range("C16").Select
End Sub
code ende