Zeilenumbruch aufheben in neue Zeile ???

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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
.. , - ...

Beliebteste Forumthreads (12 Monate)

Zeilenumbruch aufheben in neue Zeile ???

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilenumbruch aufheben in neue Zeile ???

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread