ich habe in einer Zelle Text in mehreren Zeilen jeweils mit Alt-Enter getrennt. Diese Zelle soll jetzt gespalten werden, so daß ich für jede Zeile der Zelle eine einzelne Zelle habe. Habt ihr eine Idee?
Gruß Carsten
Sub Zellen_trennen()
Range("A1:A10").TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlSingleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=Chr(10), FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub
Gruß aus Leipzig
P@ulchen
www.excel-werkstatt.de