ich weiß nicht wie mein Problem beschreiben soll, deshalb habe ich mein Problem in der Datei dargestellt.
https://www.herber.de/bbs/user/103791.xlsm
danke für Eure Antworten
LG, Peter
Sub Makro1()
Dim r As Range
Dim txt As Variant
Dim i As Single, z As Single
z = 10 'Zeilenabstand unter Originaltext
Set r = ActiveCell
txt = Split(r, Chr(10)) 'Zellinhalt nach Umbruch getrennt in Speicher lesen
For i = 0 To UBound(txt) 'Speicherplätze durchgehen
r.Offset(z + i, 0) = txt(i) 'eintragen
Next i
Do While i
Gruß, MCO