Sub Datei_Importieren2()
Dim strFileName As String, arrDaten, arrTmp, lngR As Long, lngLast As Long
strFileName = ThisWorkbook.Path & "test.csv"
intUnit = FreeFile
Open strFileName For Input As intUnit
arrDaten = Split(Input(LOF(intUnit), intUnit), vbLf)
Close intUnit
For lngR = 1 To UBound(arrDaten)
arrTmp = Split(arrDaten(lngR), ",")
If UBound(arrTmp) > -1 Then
With ActiveSheet
lngLast = lngR + 10
.Cells(lngLast, 1).Resize(, UBound(arrTmp) + 1) _
= Application.Transpose(Application.Transpose(arrTmp))
End With
End If
Next lngR
End Sub