Vba zeichen in zelle formatieren

Folgendes, habe in einer Spalte hunderte von Reihen von verschiedenen Zeichen folgen. Alle fangen mit einer 5 stelligen nummer an:

13617 0.75KW 1380/128

Möchte aber einen zwanghaften Zeilenumbruch (alt + Enter) einf¨gen.

13617
0.75KW 1380/128

Aber wie?

Folgendes, habe in einer Spalte hunderte von Reihen von
verschiedenen Zeichen folgen. Alle fangen mit einer 5
stelligen nummer an:

13617 0.75KW 1380/128

Möchte aber einen zwanghaften Zeilenumbruch (alt + Enter)
einf¨gen.

13617
0.75KW 1380/128

hallo H,

ich freue mich wenn die Frageform:
Anrede, Frage, Gruß, name
gewählt wird.

probiers mal so:

Sub tt()
Dim Zei As Long
For Zei = 1 To Cells(Rows.Count, 1).End(xlUp).Row
 Cells(Zei, 1).WrapText = True
 Cells(Zei, 1).Value = Left(Cells(Zei, 1).Value, 5) & Chr(10) & Mid(Cells(Zei, 1).Value, 6, 999)
Next Zei
End Sub

Frag nach wenn du mit dem Code nix anfangen kannst.

Gruß
Reinhard