ich will einen Satz in seine einzelnen Worte zerlegen.
Mit Diesem Code klappt das auch, bis auf die Kleinigkeit, dass ein vorkommender Punkt (Aufzählungszeichen) unterschlagen wird.
Sub Satz_zerlegen()
Dim AnzEinträge As Integer, i1 As Integer
Dim iCol As Integer, WortZähler As Integer
Dim Wort As String
AnzEinträge = WorksheetFunction.CountA(Columns(1))
For i1 = 1 To AnzEinträge
WortZähler = 0
iCol = 3
Wort = Range("B1").Offset(i1, 0).Value
Do While InStr(Wort, " ")
iCol = iCol + 1
WortZähler = WortZähler + 1
Cells(1, iCol).Offset(i1, 0).Value = Left(Wort, InStr(Wort, " ") - 1)
Wort = Right(Wort, Len(Wort) - InStr(Wort, " "))
Loop
Cells(1, iCol + 1).Offset(i1, 0).Value = Wort
Next i1
End Sub
Was muss ich machen, dass der Punkt bei dem entsprechenden Wort angezeigt wird?Gruß
Siegfried