verwijder uit een cel alle tekst voor de spatie

[MMarie]

Ik heb een schema met cellen waar een type nr in staat een spatie en vervolgens een nummer.
De bedoeling is om met een druk op de knop alles voor die spatie weg te halen. Nu heb ik een macro die de letter weghaalt, maar als er voor de spatie A2sp staat, dan blijft de 2 staan.

Daarnaast kan ik slecht een paar cellen tegelijk selecteren voor deze actie, als ik alles selecteer of helemaal niks dan werkt de macro niet.

iemand een idee wat ik aan moet passen?

 

[edmoor]

Probeer deze eens:

    For Each cl In Range("B2:S5")
        If InStr(1, cl, " ") > 0 Then cl.Value = Split(cl, " ")(1)
    Next cl

 

[MMarie]

Dat werkt perfect! Bedankt!

 

[MMarie]

Nog een vraag, wat als ik het niet over het hele blad wil uitvoeren maar op alleen de cellen die ik zelf selecteer?

 

[VenA]

for each cl in selection

 

[MMarie]

Top! Bedankt!