Private
Sub
TextSpalter()
Dim
i
As
Long
Dim
s
As
String
Dim
Zeile
As
Long
Zeile = 1
Do
While
Cells(Zeile, 1) <>
""
s = Cells(Zeile, 1)
i = InStrRev(s,
" "
, 30, vbTextCompare)
If
i > 0
Then
Cells(Zeile, 1) = Left$(s, i - 1)
Cells(Zeile, 2) = Mid$(s, i + 1)
End
If
s = Cells(Zeile, 2)
i = InStrRev(s,
" "
, 30, vbTextCompare)
If
i > 0
Then
Cells(Zeile, 2) = Left$(s, i - 1)
Cells(Zeile, 3) = Mid$(s, i + 1)
End
If
Zeile = Zeile + 1
Loop
End
Sub