• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Laatste gedeelte tekst in een cel verwijderen

Status
Niet open voor verdere reacties.

Tonkaboon

Gebruiker
Lid geworden
12 jul 2019
Berichten
5
Hi,

Via Google op dit forum terecht gekomen en al een heleboel kunnen lezen over dit onderwerp.
Helaas kom ik er toch niet helemaal aan uit :-(

Ik wil dus het laatste gedeelte tekst ( in Kolom A, vetgedrukt) verwijderen, en het moet er dan uit komen te zien zoals weergegeven in kolom B

Kolom A

/appel/wortel/banaan/fruitetenisgezond
/peer/aardbei/blauwebessen/fruitetenisgezond
/aardappelen/andijvie/spruiten/groentenzijngezond
/sperzieboon/advocado/zuurkool/groentenzijngezond
/spinazie/sla/doperwten/spitskool/groentenzijngezond
/groenekool/boerenkool/bloemkool/koolraap/bruinebonen/groentenzijngezond


Kolom B

/appel/wortel/banaan/
/peer/aarbei/bessen/
/aardappelen/andijvie/spruiten/
/sperzieboon/advocado/zuurkool/
/spinazie/sla/doperwten/spitskool/
/groenekool/boerenkool/bloemkool/koolraap/bruinebonen/


Ik ben al verschillende formules tegengekomen met de DEEL functie of VIND, RECHT, LINKS, MIDDEN etc.
Maar omdat de lengte van de karakters niet iedere keer hetzelfde is, kom ik er niet aan uit :-((

Wie o Wie kan mij verder helpen?

Alvast heel erg bedankt voor het meedenken!

Groetjes,
 
met een voobeeldbestandje heb je sneller een passend antwoord :)
 
Is vrij eenvoudig met een UDF op te lossen.

Code:
Function VenA(r As Range)
  x = Split(r, "/")
  VenA = Replace(r, x(UBound(x)), "")
End Function
 

Bijlagen

  • Tonkaboon.xlsb
    13,2 KB · Weergaven: 33
Is vrij eenvoudig met een UDF op te lossen.

Code:
Function VenA(r As Range)
  x = Split(r, "/")
  VenA = Replace(r, x(UBound(x)), "")
End Function

WAUW!!! Het werkt!! Dat had ik zelf echt, never nooit niet voor elkaar gekregen Super! Je bent geweldig;-)) Many thanks!
 
Voor de volledigheid ook nog maar een formule voor kolom B:
Code:
=LINKS(A1;VIND.ALLES("@";SUBSTITUEREN(A1;"/";"@";LENGTE(A1)-LENGTE(SUBSTITUEREN(A1;"/";"")));1))
Of, simpeler:
Code:
=SUBSTITUEREN(SUBSTITUEREN(A1;"fruitetenisgezond";"");"groentenzijngezond";"")
 
Laatst bewerkt:
Voor de volledigheid ook nog maar een formule voor kolom B:
Code:
=LINKS(A1;VIND.ALLES("@";SUBSTITUEREN(A1;"/";"@";LENGTE(A1)-LENGTE(SUBSTITUEREN(A1;"/";"")));1))
Of, simpeler:
Code:
=SUBSTITUEREN(SUBSTITUEREN(A1;"fruitetenisgezond";"");"groentenzijngezond";"")

Ook dat werkt perfect! Heel erg bedankt voor het meedenken! Wat super gaaf als je dit toch allemaal kunt in Excel:))

Fijn weekend allemaal!
 
Wat is er mis met de good old "Ctrl + h"? Zoek en Vervang werkt hier toch ook gewoon? Is een macro niet wat overbodig?
 
Waarom naar kolom B, dat kan toch ook in dezelfde kolom?
 

Bijlagen

  • gezondheid wissen.xlsm
    17,4 KB · Weergaven: 24
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan