ich hoffe Ihr habe eine Idee.
in einer Zelle steht Text. Wie kann ich mit VBA alles was rechts vom ersten leerzeichen entfernen.
Gruß
Martin
Sub tt()
Dim i%, x%, mylng%
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
mylng = Len(Cells(i, 1))
x = InStr(1, Cells(i, 1), " ")
Cells(i, 2) = Left(Cells(i, 1), x - 1)
Next i
End Sub
Sub tt() 'Text nach 1.Leerzeichen entfernen
Dim i%
On Error Resume Next
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 3) = Split(Cells(i, 1))
Next
End Sub