Option Explicit
Dim altText As String
Dim RestText As String
Dim TeilText As String
Dim NeuText As String
Dim arrTxt() As String
Dim Trenner As String
Dim intTeil As Integer
Sub Crossposting()
intTeil = 65
Trenner = "-"
NeuText = ""
altText = "Betrifft: AW: Crossposting von: Werner Geschrieben am: 20.09.2016 13:50:11 Hallo Martin, und warum verlinken du deine Beiträge in den verschiedenen Foren untereinander nicht? - Gruß Werner"
MsgBox Doit
intTeil = 65
Trenner = "-"
NeuText = ""
altText = "Betrifft: AW: Crossposting von: Martin - Geschrieben am: 20.09.2016 14:00:02 - Weil erste mal in Forum vielleicht besser Vorschlag machen als Kritik."
MsgBox Doit
End Sub
Private Function Doit() As String
RestText = altText
Do
TeilText = Left(RestText, 65)
If Len(TeilText) < 65 Then
Else
TeilText = Mid(TeilText, 1, InStrRev(TeilText, " "))
End If
arrTxt = Split(TeilText, Trenner)
RestText = Replace(RestText, arrTxt(0), "")
If UBound(arrTxt) > 0 Then
RestText = Replace(RestText, Trenner, "", 1, 1)
NeuText = NeuText & arrTxt(0) & Chr(10) & Trenner
Else
NeuText = NeuText & arrTxt(0) & Chr(10)
End If
RestText = RestText
If Len(RestText) = 0 Then Exit Do
Loop
Doit = Left(NeuText, Len(NeuText) - 1)
End Function