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 13:51

  2. #2
    Mega Senior
    Verenigingslid
    SjonR's avatar
    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)

  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.

  5. Dit topic is automatisch gesloten omdat er sinds vier maanden niet meer op gereageerd is.

    Indien gewenst kan de topicstarter een verzoek tot heropening indienen.

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