Ich benutze nachfolgenden Code um eine Zeichenkette zu trennen. Wie kann ich erreichen, daß eine Schleife von 150 Zeilen durchlaufen wird?
Sub Trennen()
Dim Sp$, TMP$
Dim I%, C%
Sp = Chr$(32)
I = 1: C = 4
TMP = Cells(1, 3)
Do While I <> 0
I = InStr(TMP, Sp)
If I = 0 Then Cells(1, C) = TMP: Exit Sub
Cells(1, C) = Left(TMP, I - 1)
TMP = Right(TMP, Len(TMP) - I)
C = C + 1
Loop
End Sub