Zeilenumbruch aufheben

Hallo Excelfreunde,
mal wieder ein kleines Problemchen (für mich) mit der Sortierung von Daten in Excel.
Ich habe Zellen, die meht als 70 Zeichen enthalten und darüber hinaus Zellen, die mehr als eine Zeile enthalten. Da könnte man zwar einfach den Zeilenumbruch aufheben, aber die Datei wird später als Text gespeichert und da werden die Zeilenumbrüche weider übernommen.
Also hätte ich gerne jede Zeile innerhalb einer Excelzelle in eine eigene Zelle geschrieben, da ich alledings nur 70 Zeichen weiter verarbeiten kann, muss der Rest in die nächte Zelle geschrieben werden.
In
Konnte ich das in Etwa erklären? Ich habe eine Beispieldatei geladen:
https://www.herber.de/bbs/user/95879.xlsx
Im Tab "IST" sind die Daten so, wie diese mir vorliegen, im Tab "SOLL" sind diese Daten, wie sie geändert werden sollen.
Danke und Grüße
Paul

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

… Paul?

	A	B	C	D
1	Besitzeränderung lt. E-Mail Hr. Schmitt, E. vom 29.01.08 (Kist/29.01.08)	Besitzeränderung lt. E-Mail Hr. Schmitt,	E. vom 29.01.08	(Kist/29.01.08)
2	Intervallverkürzung auf 2 Jahre lt. E-Mail Hr. Schmitt, E. vom 22.11.11/Kist 22.11.11	Intervallverkürzung auf 2 Jahre lt. E-Mail Hr. Schmitt	E. vom 22.11.11/Kist 22.11.11	#NV
3	mit Preamplifier-Box SN41020/E03123 und 2 Magnetfeldsonden 0.16-0.8Tesla SN 3430-041/E10883 und 0.45-2,1Tesla SN 3430-010R/E10884	mit Preamplifier-Box SN41020/E03123	und 2 Magnetfeldsonden 0.16-0.8Tesla SN 3430-041/E10883	und 0.45-2,1Tesla SN 3430-010R/E10884
4
5	*ZellFormeln:*	B1[B3]:D1[D3]: {=SplitVx(WECHSELN(A1;ZEICHEN(10);"\|");{"\|"." (".", "};{0.-1.1})}

Allerdings sollten, egal welches Pgm letztlich angewendet wird, die zusätzlichen TrennZeichen eindeutig sein (nicht 1× nach Komma vor _E. (_=LeerZeichen) trennen und 1× nicht). Anderenfalls kann man auch TrennZeichen, idR ZEICHEN(10), an passender Stelle bis zu einer vorgegebenen ZeichenAnzahl einsetzen und dann an diesen Stellen (zusätzlich) trennen. Eine Alternative könnte dann so aussehen:

	A	B	C	D
11	Besitzeränderung lt. E-Mail Hr. Schmitt, E. vom 29.01.08 (Kist/29.01.08)	Besitzeränderung lt. E-Mail Hr. Schmitt, E. vom 29.01.08	(Kist/29.01.08)	#NV
12	Intervallverkürzung auf 2 Jahre lt. E-Mail Hr. Schmitt, E. vom 22.11.11/Kist 22.11.11	Intervallverkürzung auf 2 Jahre lt. E-Mail Hr. Schmitt,	E. vom 22.11.11/Kist 22.11.11	#NV
13	mit Preamplifier-Box SN41020/E03123 und 2 Magnetfeldsonden 0.16-0.8Tesla SN 3430-041/E10883 und 0.45-2,1Tesla SN 3430-010R/E10884	mit Preamplifier-Box SN41020/E03123	und 2 Magnetfeldsonden 0.16-0.8Tesla SN 3430-041/E10883	und 0.45-2,1Tesla SN 3430-010R/E10884
14
15	*ZellFormeln:*	B11[B12]:D11[D12]: {=Splint(TinLines(A11;56);ZEICHEN(10))}
16		B13:D14: {=Splint(TinLines(A13;130);ZEICHEN(10))}

Beides lässt sich mit den von mir verwendeten UDFs SplitVx, Splint und TinLines nur schwer unter einen Hut bringen, es sei denn, man verwendet eine KombiFml, die bei gefundenem ZEICHEN(10) Splint, sonst TinLines verwendet. Eine eigene SubProzedur nur dafür wäre für meinen Geschmack uU viel zu speziell, also ggf nur 1× benutzbar (falls so etwas nicht regelmäßig zu gleichen oder zumindest ähnlichen Parametern anfällt, was sich sonst kaum lohnen würde).
Die ersten beiden UDFs findest du unter RECHERCHE, die andere ist nicht im Archiv enthalten, dafür aber eine bessere, die evtl Text2Rows o.ä. heißt. Sie könnte auch in einer von mir vor Jahren zu einem Thread ähnlichen Themas hochgeladenen Datei enthalten sein. Suchen musst schon du, denn auch auf meinem PC wird sie aktuell nicht vorhanden sein und die gezeigte ist mit anderen Fktt eines AddIns derart verbunden, dass ihre Isolierung sinnlos wäre.
Übrigens stützen die gezeigten Textlängen von 72, 85, 129 deine Angabe >70 in Relation zu deiner WunschVorstellung nicht gerade, was man im 2.Bsp an der abweichenden Argumentierung von TinLines erkennen kann.
Ähnliche Themen wie deines kommen übrigens des Öfteren im Archiv vor. Du könntest also auch noch anderweitig fündig wdn.
Gruß, Luc :-?
Besser informiert mit …

Function TrennZeichen(txt As String, MaxLen As Long) As String Dim Pos1 As Long, Pos2 As Long, PosNeu As Long txt = Replace(txt, vbLf, "|") & "|" Pos1 = 1 Do Pos2 = InStr(Pos1, txt, "|") If Pos2 = 0 Then Exit Do If Pos2 - Pos1 > MaxLen Then PosNeu = InStrRev(txt, " ", Pos1 + MaxLen) If PosNeu > Pos1 Then Mid(txt, PosNeu, 1) = "|" Pos1 = PosNeu + 1 Else txt = Left(txt, Pos1 + MaxLen - 1) & "|" & Mid(txt, Pos1 + MaxLen) Pos1 = Pos1 + MaxLen + 1 End If Else Pos1 = Pos2 + 1 End If Loop txt = Replace(txt, " |", "|") txt = Replace(txt, "| ", "|") TrennZeichen = txt End Function

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilenumbruch aufheben

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

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread