Manueller Umbruch nach „-„ und x Zeichen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim strText$, strText2$, strTextNeu$
If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
strText = Replace(Target, Chr(10), " ")
Do
If Len(strText)  0, Left(strText, InStr(Left(strText, _
_
65), "#")), Left(strText, InStrRev(Left(strText, 65), " ") - 1))
End If
strTextNeu = IIf(strTextNeu = "", strText2, strTextNeu & Chr(10) & Trim(Replace( _
strText2, "#", "")))
strText = Trim(Right(strText, Len(strText) - Len(strText2)))
Loop While strText  ""
Application.EnableEvents = False
Target = strTextNeu
Application.EnableEvents = True
End Sub