Text in mehrere Reihen
07.06.2006 09:49:33
Philip
ich habe folgendes Problem: Ich möchte Text, der durch Komma getrennt ist, aus einer Zelle in meherere Zeilen bekommen. Dazu habe ich folgenden VBA Code:
Sub TextToRows()
Sep = ","
If Sep = "" Then Exit Sub
For Each Cell In Selection
WholeLine = CStr(Cell.Value)
If Right(WholeLine, 1) <> Sep Then
WholeLine = WholeLine & Sep
End If
RowNum = 0
Pos = 1
NextPos = InStr(Pos, WholeLine, Sep)
While NextPos >= 1
TempVal = Mid(WholeLine, Pos, NextPos - Pos)
Cell.Offset(RowNum, 0).Value = TempVal
Pos = NextPos + 1
RowNum = RowNum + 1
NextPos = InStr(Pos, WholeLine, Sep)
Wend
Next
End Sub
Das Problem ist jedoch, dass die darunterliegende Zeile überschrieben wird. Wer weiss, wie man den Code ändern kann, dass eine neue Zeile eingefügt wird und dadurch nichts überschrieben wird? Danke im Voraus.
Gruss,
Philip