folgendes "problem", ich importiere mit folgendem code daten aus einer txt datei nach excel.
Sub DateiImport1()
Dim iRow As Integer, iCol As Integer
Dim sFile As String, sTxt As String
sFile = Sheets("Baum52").Range("C19").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
iCol = 1
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 = 1
Loop
Close
End Sub
(die daten stehen in der txt datei semikolon getrennt, meist immer zwischen 5 bis 15 spalten und 10 bis 30 zeilen)Das funktioniert soweit auch ganz gut, LEIDER dauert es teilweise ganz schön lange (2-3 min)....
gibt es eine möglichkeit die daten anders (schneller) einzulesen?
liebe grüße
sascha