Excel: Text nach maximal 40 Zeichen trennen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…eine UDF (TxRows) im Archiv, André,
die alle logischen Trennmöglichkeiten unmittelbar vor bzw auf einer angegebenen TeilText-MaximalLänge berücksichtigt und an diesen Stellen harte ZeilenUmbrüche einfügt. Wenn man stattdessen die Teile in eigenen Zellen haben will, kann man nachträglich Text-in-Spalten oder gleich eine weitere UDF auf Basis der vbFkt Split (zB VSplit aus dem Archiv) verwenden: =VSplit(TxRows(A1;40);ZEICHEN(10))
Da es sich aber um sehr viele Texte handelt, wäre eine SubProzedur wohl angebrachter. Aber auch in der kann man TxRows, dann in Kombination mit Split, anwenden: Const maxTTL As Long = 40 Dim avTxt, zTxt As Range For Each zTxt In Intersect(ActiveSheet.Columns(1), ActiveSheet.UsedRange) avTxt = Split(TxRows(zTxt, maxTTL), vbLf) zTxt.Resize(0, UBound(avTxt) + 1 - LBound(avTxt)) = avTxt Next zTxt Ggf kann man sich an der UDF auch nur orientieren, um ein eigenes Pgm zu schreiben.
ArchivLinks:
TxRows https://www.herber.de/bbs/user/61870.xls (BspDatei, bzw BT →) https://www.herber.de/cgi-bin/callthread.pl?index=1084680#1085532
VSplit (Vs1.1) https://www.herber.de/bbs/user/99024.xlsm (BspDatei)
Gruß, Luc :-?
Die Intelligenzmenge ist auf diesem Planeten eine Konstante, die Bevölkerung nimmt aber zu! Auch deshalb informieren mit

…auf eine günstigere Ausnutzung der maximalen TeilTextLänge, Walter,
was hier wohl daran liegen mag, dass neine UDF ohnehin bei Zeilenumbruch überflüssig werdende Leerzeichen gar nicht erst mitzählt. Statt der Längen {77;73;79;74;78;74;79;54} bei eurem Ergebnis erhalte ich so {77;80;75;77;75;77;77;50} Zeichen. Bei einer maximalen TeilTextLänge von 40 wären es dann {37;39;37;35;38;40;40;39;36;38;38;38;37;39;40;9}. Und das alles bei nur einer pluralen MatrixFml, natürlich auch unrationell und länger (INDEX-Auswahl) als NormalFml möglich.
Allerdings halte ich die Verwendung eines Gedichts als TextBsp für wenig sinnvoll, denn dadurch wird sein Versmaß zerstört. Auch können in der Art von Texten wie sie in dieser konkreten Aufgabe auftreten wdn, sicher irreguläre (Satz-)ZeichenSetzungen vorkommen, mit denen die UDF sinnvoll umgehen kann. Desweiteren ist es in der aktuellen Version der UDF auch möglich, relative Trennzeichen in den OriginalText einzufügen, die dann im Ergebnis entweder entfernt oder durch einen Trennstrich ersetzt wdn, so dass die maximale TeilTextLänge auch mal kürzer als das längste Wort sein darf (das dann aber an entsprd Stellen mit relativen Trennzeichen versehen wdn muss).
Außerdem dürften Fmln bei der hier sehr großen Zahl von aufzuteilenden, benennenden Texten kaum viel Freude bereiten… ;-]
Morhn, Luc :-?

Beliebteste Forumthreads (12 Monate)

	F	G	H	I
3	WebshopText mit mehr als vierzig Zeichen steht hier in der Zelle		WebshopText mit mehr als vierzig Zeichen	steht hier in der Zelle
4	64		40	23

Excel: Text nach maximal 40 Zeichen trennen

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

148 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel: Text nach maximal 40 Zeichen trennen

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

148 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread