Formatierung TextBox mit Zeilenumbruch

  • Excel

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Pinsch.

    Formatierung TextBox mit Zeilenumbruch

    Hallo Zusammen,

    vorab...ich areite erst seit einer woche mit vba. verzeiiht mir bitte unwissenheit :D

    ich habe folgendes problem...ich habe eine textbox in der, der benutzer willkuerlich text eintippen kann. mit zeilenumbruch und co. dieser text wird anschliessend in ein anderes programm kopiert, welches aber eine begrenzte zeilenlaenge hat. is die zeile zu lang wird sie einfach abgeschnitten und der text is im eimer...nun will ich die textbox so formatieren, dass beim verlassen der text automatisch richtig formatiert wird. stosse aber an die grenzen meiner leiehnhaften faehigkeiten...

    hatte jemand schon mal damit zu tun? als inspiration poste ich mal meinen code:

    Visual Basic-Quellcode

    1. Function StringUmdrehen(ByVal Text As String) As String
    2. Dim Buffer As String
    3. Dim n As Integer
    5. Buffer = ""
    6. For n = Len(Text) To 1 Step -1
    7. Buffer = Buffer + Mid$(Text, n, 1)
    8. Next n
    9. StringUmdrehen = Buffer
    10. End Function
    12. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    14. Dim lastspace As Integer, actpos As Integer, i2 As Integer, wrap As Integer, space As Integer, ll As Integer
    15. Dim oldt As String, newt As String, restt As String, lastchar As String, rnewt As String
    16. Dim LineLength As Integer
    17. LineLength = 10
    19. restt = TextBox1.Text
    21. For i = LineLength To Len(TextBox1.Text) Step LineLength
    23. newt = Left(restt, LineLength)
    24. wrap = InStr(newt, vbCrLf)
    25. If wrap > LineLength Or wrap = 0 Then
    26. lastchar = Right(newt, 1)
    27. If lastchar = " " Then
    28. oldt = oldt & newt & vbCrLf
    29. actpos = Len(TextBox1.Text) - i
    30. restt = Right(restt, actpos)
    31. Else
    32. rnewt = StringUmdrehen(newt)
    33. space = InStr(rnewt, " ")
    34. ll = LineLength - space
    35. newt = Left(restt, ll)
    36. oldt = old & newt & vbCrLf
    37. actpos = Len(TextBox1.Text) - i - space
    38. restt = Right(restt, actpos)
    39. End If
    40. Else
    41. oldt = oldt & newt
    42. i2 = i / LineLength
    43. actpos = Len(TextBox1.Text) - i2 * LineLength
    44. restt = Right(restt, actpos)
    45. End If
    46. Next i
    48. TextBox1.Text = oldt & restt
    50. End Sub


    Vielen Dank schon mal fuer eure Hilfe

    Pinsch

    Versuch's mal auf folgender grundlage:

    Visual Basic-Quellcode

    1. Sub textumbruch()
    3. Dim t$, t1$, p&, maxlen&
    5. t = "Lorem ipsum dolor sit amet consectetuer urna pede mauris vel quis. " & _
    6. "Justo senectus convallis dui at Nam lacinia sagittis Suspendisse orci orci. " & _
    7. "Quam augue Nullam hendrerit et hendrerit consequat laoreet quis wisi quis. Proin turpis id ac hac at."
    9. maxlen = 20
    11. While Len(t) > maxlen
    13. p = InStrRev(t, " ", maxlen, 1)
    14. t1$ = t1 & Left$(t, p) & vbCrLf
    15. t$ = Mid$(t$, p + 1)
    17. MsgBox t1$, , "Test Zeilenweise" '---> Testausgabe nach jeder Zeile
    18. Wend
    20. If Len(t) Then t1 = t1 & t
    22. MsgBox t1, , "Komplett"
    24. End Sub

    Das liegt nicht am Leerzeichen, sondern daran, das das Wort länger als 'maxlen' ist.

    Eine Möglichkeit ist, das Wort einfach umzubrechen.
    Beispiel: Aus "DasisteinganzlangesWort"
    wird bei 'maxlen = 10':

    Dasisteing
    anzlangesW
    ort


    Visual Basic-Quellcode

    1. …
    2. …
    3. While Len(t) > maxlen
    5. p = InStrRev(t, " ", maxlen, 1)
    6. if p then
    7. t1 = t1 & Left$(t, p) & vbCrLf
    8. t = Mid$(t, p + 1)
    9. else
    10. t1 = t1 & Left$(t, maxlen) & vbCrLf
    11. t = Mid$(t, maxlen + 1)
    12. end if
    14. MsgBox t1, , "Test Zeilenweise" '---> Testausgabe nach jeder Zeile
    15. Wend
    17. If Len(t) Then t1 = t1 & t
    18. …


    Zumindest sollte Excel sicht nicht mehr aufhängen.

    geil...danke eierlein...sieht logisch aus, aber selber bin ich nich drauf gekommen :D

    hab veruscht zeilen und absaetze zu zaehlen...ging kraeftig daneben und bei wiederholung hat er dann quasi zu viele absaetze gemacht...

    dein code funktioniert auf jeden fall soweit. noch keine fehler gefunden.

    vielen, vielen dank

    Heisst das, das wenn Du mehrmals kurze Texte rüberschickst, nichts verloren geht?

    Ich hatte das so verstanden, dass nur eine maximale Anzahl an Zeichen erlaubt sein dürfen. Dann wäre aber nur in den Eigenschaften der Textbox die Maxlength auf die gewünschte Anzahl zu setzen.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Also ich hab's hoehstwahrscheinlich sehr umstaendlich jetzt gemacht, aber ich verstehe es und es funktioniert :D

    das problem war, dass die formatierung einmal funktioniert und wenn man was geaendert hat, hatte sich wieder alles verschoben. war aber nur ein problem der zeichenspruenge, da vbNewLine ja zwei neue Zeichen einfuegt...

    hier der code fuer leute mit aehnlichem problem

    Visual Basic-Quellcode

    1. Private Sub textbox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    2. Dim test As Integer, restlen As Integer, i2 As Integer, wrap As Integer, space As Integer, ll As Integer, lines As Integer, wraps As Integer
    3. Dim oldt As String, newt As String, restt As String, lastchar As String, rnewt As String
    4. Dim linecheck As Boolean
    5. Dim LineLength As Integer
    6. LineLength = 36
    8. restt = textbox.Text
    10. While Len(restt) > LineLength
    12. newt = Left(restt, LineLength + 2)
    13. rnewt = StringUmdrehen(newt)
    14. wrap = InStr(rnewt, Chr(13))
    15. space = InStr(rnewt, " ")
    17. If wrap = 0 Then
    18. If space = 0 Then
    19. newt = Left(newt, LineLength)
    20. oldt = oldt & newt & vbNewLine
    21. restlen = Len(restt) - Len(newt)
    22. If restlen < 0 Then
    23. restt = restt
    24. Else
    25. restt = Right(restt, restlen)
    26. End If
    27. Else
    28. ll = LineLength - space + 3
    29. newt = Left(restt, ll)
    30. oldt = oldt & newt & vbNewLine
    31. restlen = Len(restt) - Len(newt)
    32. restt = Right(restt, restlen)
    33. End If
    34. Else
    35. ll = LineLength - wrap + 4
    36. newt = Left(restt, ll)
    37. oldt = oldt & newt
    38. restlen = Len(restt) - Len(newt)
    39. restt = Right(restt, restlen)
    40. End If
    42. Wend
    44. textbox.Text = oldt & restt
    46. End Sub


    sind glaub ich noch paar unnoetige vars vom probieren drin, aber geht auf jeden fall...

    gruss,
    Pinsch

    aber ich verstehe es und es funktioniert


    Es ist möglich, das es für deine Zwecke funktioniert, aber verstanden hast du es, meiner Meinung nach, nicht so ganz.

    Erstmal:
    SPACE ist ein Basic-Schlüsselwort, solltest du deswegen nicht als Variable verwenden.
    Statt LEFT, RIGHT, usw. solltest du LEFT$, RIGHT$,CHR$, … verwenden. (Ist bei Strings einen Tick schneller).

    Folgender Text:

    Quellcode

    1. t$ = "Seehofer sagte, er führe mit den anderen Ministerpräsidenten" & _
    2. " derzeit Gespräche über den Länderfinanzausgleich. «Uns geht " & _
    3. "es um die Herstellung von Gerechtigkeit.» Falls diese Gespräche" & _
    4. " nicht zum Erfolg führen, werde Bayern den Länderfinanzausgleich " & _
    5. "noch in diesem Jahr vor das Bundesverfassungsgericht bringen." & _
    6. $CRLF & _
    7. "Seehofer hielt sich in seiner Aschermittwochsrede wie angekündigt " & _
    8. "mit Angriffen auf die politischen Gegner zurück. Er ist derzeit " & _
    9. "nach dem Rücktritt von Bundespräsident Christian Wulff als " & _
    10. "Bundesratspräsident formell das deutsche Staatsoberhaupt."


    ergibt bei deinem CODE:

    Seehofer sagte, er führe mit den and
    eren Ministerpräsidenten derzeit Ges
    präche über den Länderfinanzausgleic
    h. «Uns geht es um die Herstellung v
    on Gerechtigkeit.» Falls diese Gespr
    äche nicht zum Erfolg führen, werde
    Bayern den Länderfinanzausgleich noc
    h in diesem Jahr vor das Bundesverfa
    ssungsgericht bringen.
    Seehofer hie
    lt sich in seiner Aschermittwochsred
    e wie angekündigt mit Angriffen auf
    die politischen Gegner zurück. Er is
    t derzeit nach dem Rücktritt von Bun
    despräsident Christian Wulff als Bun
    desratspräsident formell das deutsch
    e Staatsoberhaupt.

    Das gleiche Ergebnis erzielst du auch mit folgendem CODE:

    Visual Basic-Quellcode

    1. DIM t AS STRING, t1 AS STRING
    2. DIM p AS LONG, maxlen AS LONG
    3. maxlen = 36
    4. t = 'siehe oben
    6. WHILE LEN (t) > maxlen
    7. t1 = t1 & LEFT$(t, maxlen) & VBCRLF
    8. t = MID$(t, maxlen+1)
    9. WEND
    10. t1 = t1 & t
    12. MSGBOX t1


    :D

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Eierlein“ ()

    dass es einige schwaechen aufweisst ist mir durchaus klar :D

    was zB in meinem code fehlt ist die definition der funktion stringumdrehen...

    wenn ich den text eingebe, den du beschrieben hast wird er schoen brav nach leerzeichen durchsucht und dort abgeschnitten...

    jedoch hab ich ein neues problem entdeckt bzgl. der wiederholbarkeit. nachdem der text einmal formatiert wurde und ich nochmal in das feld gehe und wieder raus, wird bei einem absatz mitten in der zeile nochmal einer eingefuegt...

    werd ich mir nachm mittag mal anschauen, was da schon wieder falsch is...

    als ergaenzung noch stringumdrehen funktion:

    Visual Basic-Quellcode

    1. Function StringUmdrehen(ByVal Text As String) As String
    2. Dim Buffer As String
    3. Dim n As Integer
    5. Buffer = ""
    6. For n = Len(Text) To 1 Step -1
    7. Buffer = Buffer + Mid$(Text, n, 1)
    8. Next n
    9. StringUmdrehen = Buffer
    10. End Function

Facebook
Telefonspende