Als Reaktion auf die folgende Frage:

Wie lösche ich alle Zeichen nach dem ersten Leerzeichen in einer Zelle?

Ich muss diese Funktion von Zeile M2 bis zum letzten Eintrag am Ende von Spalte M anwenden. Wie kann ich das tun, wenn ich diesen Code habe:

Sub TMP()

    Dim strCodeWithDesc As String
    Dim strCodeOnly As String
    strCodeWithDesc = Range("M2").Value
    strCodeOnly = Left(strCodeWithDesc, InStr(strCodeWithDesc, " ") - 1)
    Range("M2").Value = strCodeOnly

End Sub