gedeelte uit tekst halen

[Nelis1]

elke keer weer opnieuw loop ik hier tegenaan. hoe krijg ik hier de meters uit de tekst ik staar me er even blind op.... of beter gezegd ik snap de methodiek gewoon nog niet helemaal

Bekijk bijlage gedeelte uit tekst halen.xlsx

 

[SjonR]

het zal vast korter kunnen, maar mijn vrouw vindt langer beter zegt ze. Probeer deze eens Nelis:

=DEEL(RECHTS(A2;LENGTE(A2)-VIND.SPEC("-";A2));VIND.SPEC(" ";RECHTS(A2;LENGTE(A2)-VIND.SPEC("-";A2)))+1;LENGTE(RECHTS(A2;LENGTE(A2)-VIND.SPEC("-";A2)))-VIND.SPEC(" ";RECHTS(A2;LENGTE(A2)-VIND.SPEC("-";A2)))-(LENGTE(RECHTS(A2;LENGTE(A2)-VIND.SPEC("-";A2)))-VIND.SPEC("M";RECHTS(A2;LENGTE(A2)-VIND.SPEC("-";A2))))-1)

 

[VenA]

Wat lukt er dan niet en wat is de verwachte uitkomst?

 

[AlexCEL]

Ik geef de voorkeur aan korter...

=SUBSTITUEREN(SPATIES.WISSEN(RECHTS(SUBSTITUEREN(SPATIES.WISSEN(LINKS(A1;LENGTE(A1)-3));" ";HERHALING(" ";100));100));"M";"")

 

[SjonR]

Tegen jouw meesterschap kan ik niet op Alex:thumb:

 

[Nelis1]

zou je de formule kort kunnen toelichten misschien

 

[snb]

Een UDF

Function F_snb(c00)
    c00 = Application.Trim(Replace(c00,"M","M "))
    F_snb = Split(c00)(UBound(Split(c00)) - 1)
End Function

 

[AlexCEL]

Korte toelichting

=SUBSTITUEREN([COLOR="#008000"]SPATIES.WISSEN(RECHTS[/COLOR]([COLOR="#0000CD"]SUBSTITUEREN([/COLOR][COLOR="#FF0000"]SPATIES.WISSEN(LINKS(A1;LENGTE(A1)-3))[/COLOR][COLOR="#0000CD"];" ";HERHALING(" ";100))[/COLOR][COLOR="#008000"];100[/COLOR]));"M";"")
↓
=SUBSTITUEREN([COLOR="#008000"]SPATIES.WISSEN(RECHTS[/COLOR]([COLOR="#0000CD"]SUBSTITUEREN([/COLOR][COLOR="#FF0000"][.][/COLOR][COLOR="#0000CD"];" ";HERHALING(" ";100))[/COLOR][COLOR="#008000"];100[/COLOR]));"M";"")
↓
=SUBSTITUEREN([COLOR="#008000"]SPATIES.WISSEN(RECHTS[/COLOR]([COLOR="#0000CD"][.])[/COLOR][COLOR="#008000"];100[/COLOR]));"M";"")
↓
=SUBSTITUEREN([COLOR="#008000"][.][/COLOR];"M";"")

1. het rode deel zorgt ervoor dat er 3 tekens rechts van de tekst wordt afgehaald en overbodige spaties worden gewist.
2. het blauwe deel zorgt ervoor dat elke overgebleven spatie wordt vervangen door 100 spaties.
3. het groene deel neemt de 100 meest rechtse posities. Hierin zit dus zeker de gezochte afmeting. De SPATIES.WISSEN wist daarna alle (95+) overbodige spaties en wat je overhoudt is de afmeting plus (soms) eenheid.
4. De laatste SUBSTITUEREN functie zorgt ervoor dat de eenheid M wordt vervangen door "". Wat je hierna overhoudt is het getal...

 

[Nelis1]

Bedankt allemaal voor de geboden oplossingen en uitleg!:thumb:

 

[Nelis1]

@SNB waar zet ik dit stukje VBA - ik krijg het niet voor elkaar.

 

[HSV]

Code in een standaard module.
de aanroep is in een cel met de formule:

=[COLOR=#3E3E3E]F_snb(A2)[/COLOR]