Zeilenumbruch aufheben in neue Zeile ???

Sascha · 2019-12-30T11:21:00+00:00

Hallo die Funktion Text in Spalten hilft mir leider nicht weiter. Ich versuche einen Zeilenumbruch auf zu heben und den zweiten Inhalt in eine neue (darunter) Zelle zu schreiben. Aber wie `? Zeilenmbruch aufheben mit ALT + 010 funktioniert nicht, ebenso wenig mit Füllung/ Ausrichtung Blocksatz. Jemand eine Idee ? Beispiel Datei im Anhang. https://www.herber.de/bbs/user/134047.zip MFG Sascha

Hallo Sascha,
hier mal mein erster Code-Vorschlag:

Option Explicit
Sub ZeilenUmbruchDesaster()
Dim lngI As Long
Dim lngJ As Long
Dim intZeilenumbruch As Integer
Dim blnZweizeiler As Boolean
Dim lngZ As Long
Dim arr_Part1_Column(1 To 5) As Variant
Dim arr_Part2_Column(1 To 5)
lngZ = 1
For lngI = 1 To Cells(Rows.Count, 1).End(xlUp).Row
blnZweizeiler = False
For lngJ = 1 To 5
intZeilenumbruch = InStr(Cells(lngI, lngJ), Chr(10))
If intZeilenumbruch = 0 Then
arr_Part1_Column(lngJ) = Cells(lngI, lngJ)
arr_Part2_Column(lngJ) = vbNullString
Else
blnZweizeiler = True
arr_Part1_Column(lngJ) = Left(Cells(lngI, lngJ), intZeilenumbruch - 1)
arr_Part2_Column(lngJ) = Right(Cells(lngI, lngJ), Len(Cells(lngI, lngJ)) -  _
intZeilenumbruch)
End If
Next lngJ
If blnZweizeiler = True Then
For lngJ = 1 To 5
Cells(lngZ, 6 + lngJ) = arr_Part1_Column(lngJ)
Cells(lngZ + 1, 6 + lngJ) = arr_Part2_Column(lngJ)
Next lngJ
lngZ = lngZ + 2
Else
For lngJ = 1 To 5
Cells(lngZ, 6 + lngJ) = arr_Part1_Column(lngJ)
Next lngJ
lngZ = lngZ + 1
End If
Next lngI
MsgBox "Done!"
End Sub

Dabei gehe ich davon aus, dass die Input-Sätze in den Spalten A bis E stehen. Die neu generierten Sätze ohne Umbruch stehen dann in den Spalten G-K.
Code bitte in das Arbeitsblatt-Modul kopieren und laufen lassen (F5).
Kommst Du damit klar?
Gruß
eres

Hallo Sascha,
... wenn es wirklich nur max 1 Umbruch je Zelle ist und die Daten in Tabelle1 stehen.
Um die Formel übersichtlich zu halten, hab ich zwei benannte Formeln im Namensmanager bei aktivierte Zelle Tabelle2!A1 definiert:
_DatWert: =INDEX(Tabelle1!A:A;KÜRZEN((ZEILE()-1)/2;0)+1) und
_ZellWert: =WENN(_DatWert="";"";WENN(REST(ZEILE();2)=1;WENNFEHLER(WENNFEHLER(LINKS(_DatWert;SUCHEN(ZEICHEN(10);_DatWert)-1)*1;LINKS(_DatWert;SUCHEN(ZEICHEN(10);_DatWert)-1));_DatWert); WENNFEHLER(WENNFEHLER(TEIL(_DatWert;SUCHEN(ZEICHEN(10);_DatWert)+1;99)*1;TEIL(_DatWert;SUCHEN(ZEICHEN(10);_DatWert)+1;99));"")))
Nun schreibe in Tabelle2!A1 folgende Formel: =_ZellDat und ziehe diese ziehend weit genug nach rechts und unten.
Den Ergebnisbereich kopiere und setze ihn als Werte wieder ein und lösche Leerzeilen zwischen den Datenzeilen.
Gruß Werner
.. , - ...

Zeilenumbruch aufheben in neue Zeile ???

Forumthread: Zeilenumbruch aufheben in neue Zeile ?

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Zeilenumbruch aufheben in neue Zeile ???

Forumthread: Zeilenumbruch aufheben in neue Zeile ?

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread