Ich lese aus einer Texdatei Daten mit folgenden Code aus .
Sub Daten2()
Dim iRow As Integer, iCol As Integer
Dim sFile As String, sTxt As String
Dim endee As String
sFile = Range("P16").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
iRow = 1
iCol = 2
Close
Open sFile For Input As #1
Do Until EOF(1)
Line Input #1, sTxt
Do While InStr(sTxt, ";")
Cells(iRow, iCol).Value = Left(sTxt, InStr(sTxt, ";") - 1)
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, ";"))
iCol = iCol + 1
Loop
Cells(iRow, iCol).Value = sTxt
iRow = iRow + 1
iCol = 2
Loop
Close
End Sub
Das funktioniert so weit ganz gut (in einer leeren tabelle)
geht das auch schnell .
Um die Daten weiter zu verarbeiten lasse ich sie mir
dann per Makro kopieren(alles aber nach dem Dateiimport)
Nur irgentwie wird der Dateimport immer langsamer
manchmal stürzt Exel sogar ab!
Wer kann mir helfen