Beispiel in B8 steht:
pos3 Grundplatte
Danach steht in B8 "pos3" und in B9 "Grundplatte"
Dim Liste As Range
Dim Ziel As Range
Dim ws As Worksheet
Set ws = ActiveSheet
With ws
'Daten von B9 bis B200
'Daten werden beim Leerzeichen getrennt
Set Liste = .Range("B9:B200" & .Cells(.Rows.Count, 1).End(xlUp).Row)
Liste.TextToColumns Destination:=Liste(1), Space:=True
End With
jetzt würde ich gerne noch die ersten 3 Zeichen abschneiden (pos), kann ich das in die Schleife mit integrieren?
Vielleicht mit
Right(AnyString, 3)