Gruppe
Allgemein
Problem
Wie teile ich einen Namen in die einzelnen Elemente bzw. einen Satz in Wörter auf, ohne das Feature Menü DATEN / TEXT IN SPALTEN zu nutzen?
StandardModule: mHWH
Sub Splitten()
Dim iCol As Integer
Dim sTxt As String
sTxt = Range("A1").Value
Do While InStr(sTxt, " ")
iCol = iCol + 1
Cells(1, iCol).Value = Left(sTxt, InStr(sTxt, " ") - 1)
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, " "))
Loop
Cells(1, iCol + 1).Value = sTxt
End Sub