Text in Zelle nach bestimmter Zeichenanzahl bzw nach bestimmten Zeichen trennen

Sub text() Dim arr, i As Integer, j As Integer, Zelle As Range For Each Zelle In Cells(28, 4) If Len(Zelle) > 60 Then arr = Split(Zelle, " "): j = 5 For i = 0 To UBound(arr) If Len(Worksheets("Zeichnungtabelle").Cells(j , 18) & IIf(IsEmpty(Worksheets("Zeichnungtabelle") _ _ .Cells(j , 18)), "", " ") & arr(i)) > 60 Then j = j + 1 If Worksheets("Zeichnungtabelle").Cells( 9, 18) = "" Then Worksheets("Zeichnungtabelle").Cells( _ _ j , 18) = Worksheets("Zeichnungtabelle").Cells(j , 18) & IIf(IsEmpty(Worksheets(" _ Zeichnungtabelle").Cells(j , 18)), "", " ") & arr(i) Next i Else Worksheets("Zeichnungtabelle").Cells(5, 18) = Zelle End If Next Zelle End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim txt As String Dim i As Long Dim Zähler As Long Dim Pos As Long Dim arr txt = Range("D27").Value For i = 1 To Len(txt) Select Case Mid(txt, i, 1) Case "|" Zähler = 0 Case " " If Zähler >= 60 Then Mid(txt, i, 1) = "|" Zähler = 0 Else Zähler = Zähler + 1 Pos = i End If Case Else Zähler = Zähler + 1 If Zähler > 60 Then Mid(txt, Pos, 1) = "|" Zähler = i - Pos End If End Select Next arr = Split(txt, "|") ReDim Preserve arr(3) Worksheet("Zeichnungstabelle").Range("V5").Resize(4, 1).Value = WorksheetFunction.Transpose(arr) _ End Sub

…Gerhard?
Die lässt Daniel nämlich generell weg. Und natürlich hängt das ja auch von deinen Texten ab. Bei sehr langen Einzelworten könnte auch eine ungünstige Teilung resultieren, die mehr als 4 Zellen + 1 Wort in der 5. benötigt.
Und was ist unter manueller AbsatzBestimmung zu verstehen? Soll das generell ein absoluter Zeilenwechsel sein, der dann auch einen Neubeginn der Zählung veranlassen müsste (wie von Daniel umgesetzt), oder nur ein relativer innerhalb eines Wortes, um eine bessere TextzeilenAuslastung zu erreichen? Letzteres könnte nämlich auch mit der UDF TxRows in folgd pluraler MatrixFml erreicht wdn:
{=MTRANS(GLÄTTEN(VSplit(TxRows(WECHSELN(D27;"|";WIEDERHOLEN(" ";11));60;"*");ZEICHEN(10))))}
Hier wird * als relatives Trennzeichen, das bei Wirksamwerden durch Trennstrich ersetzt wird, verwendet. Die Verwendung eines absoluten Trennzeichens ist hier nicht vorgesehen, wird in der Fml aber so simuliert, dass es ggf (per individueller Anpassung des 2.Arguments von WIEDERHOLEN) eine optisch zufrieden stellende Trennung ergibt. (Wegen GLÄTTEN wäre allerdings die Verwendung des optionalen 4.Arguments von TxRows irrelevant.)
Eine evtl Kürzung auf 4 Zellen + 1 Wort müsste ggf durch ZellAuswahl und zusätzliche relative u/o absolute Trennzeichen realisiert wdn.
BspText in D27:
Jetzt brauche ich noch, dass nach jedem Pipe-Zeichen automa*tisch in die nächste Zelle im Worksheet(Zeichnungs*tabelle) gesprungen wird, so dass der Bediener bei der Eingabe in die Zelle (D27) auch selbst den Absatz bestimmen kann.|(Jedoch dürfen wieder nie mehr als 60 Zeichen in einer Zelle stehen!)
ArchivLinks zu den verwendeten UDFs:
TxRows (Vs1.2) https://www.herber.de/cgi-bin/callthread.pl?index=1084680#1085532
VSplit (Vs1.1) https://www.herber.de/bbs/user/99024.xlsm (BspDatei m.UDFs)
Gruß, Luc :-?
Der beste Beweis für intelligentes Leben im Universum ist, dass noch niemand versucht hat, Kontakt mit uns aufzunehmen. H.Lesch, 2018, Sonneberg
Deshalb Intelligenz steigern mit

Sub test() Dim txt As String Dim i As Long Dim Zähler As Long Dim Pos As Long Dim arr txt = Range("D27").Value For i = 1 To Len(txt) Select Case Mid(txt, i, 1) Case "|" Zähler = 0 Case " ", "*" If Zähler >= 60 Then Mid(txt, i, 1) = "|" Zähler = 0 Else if Mid(txt, i, 1) "*" then Zähler = Zähler + 1 Pos = i End If Case Else Zähler = Zähler + 1 If Zähler > 60 Then Mid(txt, Pos, 1) = "|" Zähler = i - Pos End If End Select Next txt = replace(txt, "*", "") arr = Split(txt, "|") ReDim Preserve arr(3) Worksheet("Zeichnungstabelle").Range("V5").Resize(4, 1).Value = WorksheetFunction.Transpose( _ arr) _ End Sub

Beliebteste Forumthreads (12 Monate)

Text in Zelle nach bestimmter Zeichenanzahl bzw nach bestimmten Zeichen trennen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

330 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Text in Zelle nach bestimmter Zeichenanzahl bzw nach bestimmten Zeichen trennen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

330 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread