Laatste deel van een woord verwijderen

Status
Niet open voor verdere reacties.
R

Robert Smidt

Gebruiker
Lid geworden
26 mei 2009
Berichten
901
Beste Helpmij'ers,

Mijn vraag is volgens mij hier nog niet eerder gesteld, althans kon het antwoord hier niet vinden. Onderstaande code benaderd weliswaar mijn probleem, alleen haalt deze na de spatie de tekst weg.

Ik ben op zoek naar een code die het laatste gedeelte van een woord vervangt.
vb.
Bedrijfsmiddelenkosten --> Bedrijfsmiddel;
inventariskosten --> inventaris.
enz.

M.a.w. het woord "kosten" moet worden verwijderd.

Code: 
Sub test()
Range("a1") = Left(Range("A1"), InStrRev(Range("A1"), " "))
End Sub

Alvast hartelijk dank.

Robert
 
Laatst bewerkt:
als het om het woord kosten gaat:

Code: 
[A1] = Left([A1], InStr([A1], "kosten") - 1)
 
Om het woord kosten eruit te slopen ongeacht waar het staat
Code: 
[A1].Replace "kosten", ""
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan