Option Explicit
Public Sub einlesen()
Dim lngCount As Long, lngIndex As Long, lngIndex2 As Long
Dim strTemp As String
Dim astrText() As String
lngCount = 1
Open "C:\Users\Kathan\Desktop\Art.23669_Kolben_Technikerarbeit.csv" For Input As #1
Do While Not EOF(1)
Line Input #1, strTemp
Worksheets(1).Cells(lngCount, 1).Value = Replace(strTemp, vbTab, ";")
lngCount = lngCount + 1
Loop
Close #1
For lngIndex = 1 To lngCount
astrText = Split(Worksheets(1).Cells(lngIndex, 1).Value, ";")
For lngIndex2 = 0 To UBound(astrText)
Worksheets(2).Cells(lngIndex, lngIndex2 + 1).Value = astrText(lngIndex2)
Next
Next
End Sub