Wie kann ich den Inhalt einer Zelle auswerten und die letzten zwei zeichen in einer anderen zelle ausgeben
Sub atlan()
Dim str As String
Dim dbl As Double
str = "Zucker, Schuhe und Socken Auto 3,5"
'str = Cells(1, 1)
dbl = Right(str, InStr(1, StrReverse(str), " ") - 1)
str = Left(str, Len(str) - (Len(CStr(dbl)) + 1))
Cells(1, 3) = str
Cells(1, 4) = dbl
End Sub
P.S.: Rückmeldung nicht vergessen!