Hallo Nick,
Option Explicit
Sub Nick123()
Dim LoLetzte As Long
Dim LoI As Long
Dim LoJ As Long
Dim stwert As String
Application.ScreenUpdating = False
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
For LoI = 1 To LoLetzte
LoJ = 2
stwert = Cells(LoI, 1)
Do
If InStr(stwert, Chr(10)) > 0 Then
Cells(LoI, LoJ) = Left(stwert, InStr(stwert, Chr(10)) - 1)
stwert = Mid(stwert, InStr(stwert, Chr(10)) + 1)
LoJ = LoJ + 1
Else
Cells(LoI, LoJ) = stwert
Exit Do
End If
Loop
Next LoI
Application.ScreenUpdating = True
End Sub
Gruß Hajo