Wort zerlegen in Zweier -Schritten zB test "te st"
16.10.2013 12:50:44
Michael
Wie bekommt man ein Wort in Zweierschritten / zerlegt?
Einzelschritt pro Buchstabe klappt, setze ich den Wert "Mid(Erster, pos + z, 1)" auf 2;
so läuft er drei mal durch mit dem Ergebnis te es st " Ergebnis soll "te st" sein.
Sub teil3()
Dim Erster As String
Dim pos As Integer
Dim i, z As Integer
i = 1
For i = 1 To 65536
If Cells(i, 1) = "" Then Exit Sub
Cells(i, 1).Select
Erster = Cells(i, 1)
For pos = 1 To Len(Erster)
Cells(i, pos + 1).Value = Mid(Erster, pos + z, 1)
Next pos
Next i
End Sub