|
Hi Phil,
das sollte eigentlich kein Problem sein! Als Beispiel nehme ich an, die Daten sind (wie bei Dir angegeben) in Spalte B und die zweite Zeile soll nach Spalte C kopiert werden, die erste Zeile bleibt in B. Beginn in Zeile 4 (ggf. Anpassen). Falls nicht in Spalte C kopiert werden soll: ebenfalls anpassen.
Sub Trennen()
Dim LetzteZeile As Long
Dim curZeile As Long
Dim breakPos As Long
With ActiveSheet
LetzteZeile = .Cells(.Cells.Rows.Count, 2).End(xlUp).Row
For curZeile = 4 To LetzteZeile
breakPos = Instr(1, .cells(curZeile,2), Chr(10), vbBinaryCompare)
If breakPos <> 0 Then
.Cells(curZeile, 3) = Right(.Cells(curZeile, 2), Len(.Cells(curZeile, 2) - breakPos)
.Cells(curZeile, 2) = Left(.Cells(curZeile, 2), breakPos - 1)'
End If
Next curZeile
End With
End Sub
Sollte das Trennzeichen nicht Chr(10) sondern z.B. Chr(13) sein, muß das auch angepaßt werden.
Severus
|