Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 4 van 4

Onderwerp: Laatste deel van een woord verwijderen

  1. #1
    Vraag is niet opgelost

    Laatste deel van een woord verwijderen

    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 aangepast door Robert Smidt : 7 december 2017 om 14:51

  2. #2
    Mega Senior
    Verenigingslid

    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    als het om het woord kosten gaat:

    Code:
    [A1] = Left([A1], InStr([A1], "kosten") - 1)
    Niemand is slim genoeg om zijn eigen domheid te bevatten!

    Wanneer een vraag is opgelost, markeer het dan a.u.b. ook als opgelost!

  3. #3
    Super , dat is precies wat ik zoek...heel hartelijk dank.

  4. #4
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Om het woord kosten eruit te slopen ongeacht waar het staat
    Code:
    [A1].Replace "kosten", ""
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren
Aanbiedingen