Zeilenumbruch nach 100 Zeichen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Morgen Gregor,
hier eine etwas ungewöhnliche Lösung mit Regular Expressions ;-)
Ersetzt nach max. 20 Zeichen ein Blank durch einen Excel-Zeilenumbruch (vbLF).
".{1,20} " ist ein beliebiges Zeichen, mindestens 1 Zeichen lang, max. 20 Zeichen lang,
so lang (so viele) wie möglich gefolgt von einem Leerzeichen.
"(.{1,20}) " speichert das Gesuchte (ohne dem Leerzeichen) fürs Ersetzen in $1.

cu, Bernd
--
Option Explicit

Sub x()
    Cells(2, 1) = strREReplace(Cells(1, 1), "(.{1,20}) ", "$1" & vbLf, False, True)
End Sub

Function strREReplace(src As String, pattern As String, ReplaceString As String, _
    Optional IgnoreCase As Boolean = False, _
    Optional GlobalReplace As Boolean = False)
    Dim re As Object
    Set re = CreateObject("vbscript.regexp")
    re.pattern = pattern
    re.IgnoreCase = IgnoreCase
    re.Global = GlobalReplace
    strREReplace = re.replace(src, ReplaceString)
    Set re = Nothing
End Function

Galenzo "Die Schwierigkeit li egt darin, daß wir a ls Menschen nicht nu r Probleme lösen, so ndern auch Probleme schaffen. (Edward Te ller)" bst "Die Schwierigkeit liegt darin, daß wir als Menschen nicht nur Probleme lösen, sondern auch Probleme schaffen. (Edward Teller)" MichaV- trennen davor "Die Schwierigkeit liegt darin, daß wir als Menschen nicht nur Probleme lösen, sondern auch Probleme schaffen. (Edward Teller)" MichaV- trennen dahinter "Die Schwierigkeit liegt darin, daß wir als Menschen nicht nur Probleme lösen, sondern auch Probleme schaffen. (Edward Teller)"

Hallo Gregor,
hier 2 Varianten, einmal bleibt das nicht zu trennende Wort in der Zeile stehen, einmal kommt das nicht zu trennende Wort in die nächste Zeile.

Option Explicit
Sub TrennenNachXZeichen()
Dim Wort As String
Dim Cut As Integer
Dim i As Integer
Dim Wörter
Dim Zeile()
Dim a
Cut = 10
Wort = "Die Schwierigkeit liegt darin, daß wir als Menschen nicht nur Probleme lösen, sondern auch Probleme schaffen. (Edward Teller)"
If InStr(Wort, " ") = 0 Then Exit Sub
'trennen danach
ReDim Zeile(0)
Wörter = Split(Wort, " ")
Zeile(0) = Wörter(0)
For i = 1 To UBound(Wörter)
  If Len(Zeile(a)) > Cut Then
    a = a + 1
    ReDim Preserve Zeile(a)
    Zeile(a) = Wörter(i)
  Else
    Zeile(a) = Zeile(a) & " " & Wörter(i)
  End If
Next i
MsgBox Join(Zeile, vbCrLf)
'trennen davor
ReDim Zeile(0)
a = 0
Wörter = Split(Wort, " ")
Zeile(0) = Wörter(0)
For i = 0 To UBound(Wörter) - 1
  If Len(Zeile(a)) + Len(Wörter(i + 1)) > Cut Then
    a = a + 1
    ReDim Preserve Zeile(a)
    Zeile(a) = Wörter(i + 1)
  Else
    Zeile(a) = Zeile(a) & " " & Wörter(i + 1)
  End If
Next i
MsgBox Join(Zeile, vbCrLf)
End Sub

Gruss- Micha
PS: Rückmeldung wäre nett.

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

28 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilenumbruch nach 100 Zeichen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

28 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread