Klinkers zoeken

[edmoor]

@edmoor, Waar is jouw reactie gebleven. Nu slaat alles als een tang op een varken

Ja, sorry.
Ik had ook een UDF geplaatst maar die was niet helemaal goed en ik moest weg.
Doet echter niks af aan je scherpzinnigheid

 

[Timshel]

@ VenA. Jouw code uit #8 doet het ook goed. Lekker kort ook.

 

[VenA]

Stelletje nachtbrakers

@edmoor, Doe ik ook wel eens maar als je net te snel achter elkaar reageert kan een quote wat 'onzinnig' staan. (Maakt mij verder niets uit in de vluchtige wereld van het www):d

@Timshel, Jij mag de klinkers met bijzondere tekens even inpassen. (is nog geen vraag van de TS maar komt nog)

 

[snb]

of ?

Sub M_snb()
    c00 = "aub nu zoeken naar alle klinkers in deze zin"
    x = Evaluate(Replace(StrConv(Len(c00) - Len(Replace(c00, "a", "")) + 5 * (Len(c00) - Len(Replace(c00, "e", ""))) + 9 * (Len(c00) - Len(Replace(c00, "i", ""))) + 6 * (Len(c00) - Len(Replace(c00, "o", ""))) + 3 * (Len(c00) - Len(Replace(c00, "u", ""))), 64), Chr(0), "+") + "0")
End Sub