Office: Mehr als 1.048.576 Zeilen aus txt Datei einlesen?

Hallo,
Ich habe eine Textdatei in der ca. 1,5 Millionen Zeilen vorhanden sind. Diese Datei möchte ich in Excel einlesen. Bekanntermaßen ist ja bei 1.048.576 Zeilen Schluss.
Kann ich die txt Datei zur Hälfte in ein Tabellenblatt einlesen und die andere Hälfte in ein Zweites Tabellenblatt?
Wenn ja, wie mache ich das? VBA?

Ich benutze Excel 2010

Danke

 

Hallo Marius,

teile doch die Textdatei mit einem vernünftigen Texteditor (z.B. Notepad ++, Freeware) in 2 Teile. Dann klappt das auch mit den 2 Tabellen. Und ja, es geht auch mit VBA.

 

Ich habe es nun so gelöst:

Code:

Sub txt() 
Dim lngZeile&, lngRow&, lngCol&, strFile$, strTxt$, DatIn As Object, i%, j% 
Application.ScreenUpdating = False 
strFile = "D:\Test\Datei.txt" ' 0 Then 
If lngZeile > 4 Then 
For j = 1 To i 
Worksheets(j).Columns(lngCol).TextToColumns Destination:=Worksheets(j).Cells(1, lngCol), DataType:=xlDelimited, Space:=True 
Next j 
lngCol = lngCol + 2 
'ThisWorkbook.Save ' Worksheets.Count Then Worksheets.Add after:=Worksheets(Worksheets.Count) 
Worksheets(i).Cells(lngRow - (i - 1) * 1048576, lngCol) = strTxt 
End If 
Loop 
For j = 1 To i 
Worksheets(j).Columns(lngCol).TextToColumns Destination:=Worksheets(j).Cells(1, lngCol), DataType:=xlDelimited, Space:=True 
Next j 
DatIn.Close 
End Sub