Zeilenumbruch
08.11.2014 14:14:08
Mark
Einen schönen guten Abend wünsche ich Euch , ich habe ein kleines Problem
ich habe folgenden Code...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strText$, strText2$, strTextNeu$
If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
strText = Target
Do
If Len(strText) < 20 Then
strText2 = strText
Else
strText2 = Left(strText, InStrRev(Left(strText, 19), " ") - 1)
End If
strTextNeu = IIf(strTextNeu = "", strText2, strTextNeu & Chr(10) & strText2)
strText = Trim(Right(strText, Len(strText) - Len(strText2)))
Loop While strText <> ""
Application.EnableEvents = False
Target = strTextNeu
Application.EnableEvents = True
End Sub
dieser funktioniert aber leider nur in meinem Blankdokument, nicht jedoch in meinem Tabellendokument, kann aber nicht herausfinden ob es irgendwelche Konflikte gibt, kann mir jemand helfen oder Tipps geben??Gruß, Mark