Hallo zusammen,
ich bräuchte einen Code, womit ich eine Textdatei (ca. 40000 Zeilen) in Excel schnell einlesen kann. Ich hab zwar einen Code aber der dauert zu lange oder hängt ganz Excel auf. Mein Code sieht so aus:
Sub Einlesen()
Application.ScreenUpdating = False
Sheets("Input_Raw").Activate
Sheets("Input_Raw").Range("A2:Z2").EntireColumn.Delete
Z = 1
Dim pfad As String
pfad = Sheets("Daten").Range("Pfad")
Open pfad For Input As #1 'Datei wird geöffnet und als #1 abgespeichert
Do While Not EOF(1)
Line Input #1, temp 'Zeilenweises ablesen der Datei
Sheets("Input_Raw").Cells(Z, 1) = Replace(temp, vbTab, ";") 'Zeilenweise reinschreiben in die Zeile 1
Z = Z + 1
Loop
Close #1
For j = 1 To Z
Text = Split(Sheets("Input_Raw").Cells(j, 1), ";")
For i = 0 To UBound(Text)
Sheets("Input_Raw").Cells(j, i + 1) = Text(i)
Next
Next
Wäre gut, wenn mir jemand einen fertigen Code zur Verfügung stellen könnte. Danke im voraus!