csv einlesen

Sub Import_aus_csv()
Dim strTmp, arrDaten, arrTmp, i As Long, j As Integer
Const sFile As String = "c:\users\uwe\downloads\chk_815.csv"
Open sFile For Input As #1
strTmp = Split(Input(LOF(1), 1), vbCrLf)
Close 1
arrTmp = Split(strTmp(0), ";")
ReDim arrDaten(1 To UBound(strTmp) + 1, 1 To UBound(arrTmp) + 1)
For i = 0 To UBound(strTmp)
arrTmp = Split(strTmp(i), ";")
For j = 0 To UBound(arrTmp)
arrDaten(i + 1, j + 1) = arrTmp(j)
Next
Next
With Sheets("Tabelle1")
.Cells(1, 1).Resize(UBound(arrDaten), UBound(arrDaten, 2)) = arrDaten
'.Columns.AutoFit
End With
End Sub