Thema Datum  Von Nutzer Rating
Antwort
20.09.2016 12:21:19 Martin
NotSolved
20.09.2016 12:22:50 Martin
NotSolved
20.09.2016 18:35:29 Gast75939
NotSolved
20.09.2016 18:36:26 Gast6717
NotSolved
Rot Crossposting
 20.09.2016 21:16:17 Gast27246
NotSolved
21.09.2016 07:47:09 Gast84793
NotSolved

Ansicht des Beitrags:
Von:
Gast27246		 Datum:
20.09.2016 21:16:17		 Views:
800		 Rating:
     
Antwort:
  Ja
Thema:
Crossposting		 
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()

'Test 1
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
'
'Test 2
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
20.09.2016 12:21:19 Martin
NotSolved
20.09.2016 12:22:50 Martin
NotSolved
20.09.2016 18:35:29 Gast75939
NotSolved
20.09.2016 18:36:26 Gast6717
NotSolved
Rot Crossposting
 20.09.2016 21:16:17 Gast27246
NotSolved
21.09.2016 07:47:09 Gast84793
NotSolved