Office: Text trennen und in neuer Spalte einfügen

Nachfolgendes Makro habe ich gefunden, mit dem ich Text-Zellen bei max. 30 Zeichen an einem Leerzeichen mit Zeilenumbruch trenne. Ich möchte jedoch den verbleibenden Text in rechter neuer Spalte einfügen (nicht als Zeilenumbruch in der gleichen Zelle), bin kein VBA-Experte, freue mich über jede Hilfe !

Sub UmbruchText()
Const Sollbreite = 30
Dim zz As Range, ii%, pp%
For Each zz In ActiveSheet.UsedRange
pp = 1
Do While pp + Sollbreite <Len> 0 And _
InStr(pp, zz, Chr(10)) <= pp + Sollbreite Then
pp = InStr(pp, zz, Chr(10)) + 1
Else
For ii = pp + Sollbreite To pp Step -1
If Mid(zz, ii, 1) = " " Then
pp = ii + 1
zz = Application.WorksheetFunction.Replace(zz.Text, ii, 1, Chr(10))
Exit For
End If
Next ii
End If
Loop
Next zz
End Sub

 

http://hajo-excel.de/chCounter3/getfile.php?id=221