Voorletters uit voornamen halen

[WST]

Ik kom er toch niet helemaal uit. Het lukt mij niet om de waarde achter de 2e spatie in de namen te vinden. Als ik ervan uit ga dat de eerste naam niet groter is dan 10 karakters kan ik het wel omzeilen maar waterdicht is het zo niet. Daarbij gaat het ook fout in geval van 2 voornamen of wanneer er 4 of meer voornamen zijn.


=TEKST.SAMENVOEGEN(ALS(ISFOUT(VIND.SPEC(".";A4;1));LINKS(A4;1));".";DEEL(A4;(VIND.SPEC(" ";A4;1)+1);1);".";DEEL(A4;(VIND.SPEC(" ";A4;10)+1);1);".")

Als laatste zou ik dit graag in een vba code willen hebben. Zoals ik het zou doen is deze formule in een cel zetten maar dat werkt wellicht wel maar is niet erg fraai.

Heeft iemand een idee hoe dit op te lossen is?


Het sheet met mijn probeersels sluit ik bij.

Bvd
WST

 

[edmoor]

Zet deze functie in een module:

Function Voorletters(volnam As String) As String
    Dim vlt() As String
    Dim i As Integer
    
    vlt = Split(volnam, " ")
    For i = 0 To UBound(vlt)
        Voorletters = Voorletters & UCase(Mid(vlt(i), 1, 1) & ".")
    Next
End Function

En dan in D4: =Voorletters(A4)

 

[sylvester-ponte]

edmoor, dat is een beetje slordig

Function Voorletters(volnam As String) As String
    Dim vlt() As String
    Dim i As Integer
    
    vlt = Split(volnam, " ")
    For i = 0 To UBound(vlt)
        Voorletters = Voorletters & UCase(Mid(vlt(i), 1, 1) & ".")
    Next
End Function

 

[edmoor]

Wel fijn dat je er ook meteen bij verteld wat er zo slordig aan is.
Dat het ook zo kan?

Function Voorletters(volnam As String) As String
    Dim vlt() As String
    Dim i As Integer
    
    vlt = Split(volnam, " ")
    For i = 0 To UBound(vlt)
        Voorletters = Voorletters & UCase(Left(vlt(i), 1) & ".")
    Next
End Function

Er leiden altijd meer wegen naar Rome.

 

[snb]

Zonder systematiek in gegevens faalt ieder algoritme. Dat geldt vooral voor namen.

 

[edmoor]

Dat blijft natuurlijk zo. Maar voor de gegevens in het voorbeeld document werkt dit prima.

 

[sylvester-ponte]

sorry edmoor,
ik had even aan moeten geven waar het fout ging

 

[edmoor]

Geefnie. Bedankt voor je reactie erop :thumb:

 

[WST]

Bedankt voor de reacties en hulp.

In het test sheet werkt het maar wanneer ik deze code in een module in het sheet plaats waar in ik het wil gebruiken krijg ik een foutmelding "Kan het project of bibliotheek niet vinden'.

Heeft iemand een idee waar aan dit kan liggen?

Bvd
WST

 

[edmoor]

Kijk hier eens naar:
http://www.helpmij.nl/forum/showthread.php/375353-VBA-Excel-kan-project-of-bibliotheek-niet-vinden

 

[WST]

Gevonden, bedankt. Bij extra Verwijzing stond de ontbrekende bibliotheek, deze aangezet en het werkt.

Bedankt
WST

 

[edmoor]

Ok dan :thumb: