Oorspronkelijk geplaatst op: 12 mei 2014

Probleem:

Gegevens vanaf [A2] in het volgende formaat:
Achternaam Voornaam Nummer

Bijvoorbeeld:
Smith John 12345678

Eindresultaat moet zijn:
[B2] = Nummer
[C2] = Initialen van Voornamen en vervolgens Achternaam.

Het eerste woord in [A2] is altijd de Achternaam. Het laatste gegeven is altijd het Nummer. Alle woorden tussen Achternaam en Nummer zijn Voornamen en vormen de initialen in [C2].

Bijvoorbeeld:
[A2] = Smith John James 12346578

Eindresultaat:
[B2]: 12345678
[C2]: J J Smith

Formule [B2]:

=RIGHT(A2;LEN(A2)-FIND(“¶”;SUBSTITUTE(A2;” “;”¶”;LEN(A2)-LEN(SUBSTITUTE(A2;” “;””)))))

Formule [C2]:

=CONCATENATE(MID(A2;FIND(” “;A2)+1;1);” “;MID(A2;FIND(” “;A2;FIND(” “;A2)+1)+1;1);” “;LEFT(A2;FIND(” “;A2)-1))

Dit is de mooie en flexibele oplossing.

De volgende VBA‑functie (werkt voor onbeperkt aantal voornamen)

In Excel: ALT + F11 → Insert → Module → plak dit:

Function InitialsAndLastName(fullname As String) As String
    Dim parts() As String
    Dim i As Integer
    Dim result As String
    
    parts = Split(fullname, " ")
    
    ' Last name is first element
    Dim lastname As String
    lastname = parts(0)
    
    ' Build initials from all middle names
    For i = 1 To UBound(parts) - 1
        result = result & Left(parts(i), 1) & " "
    Next i
    
    InitialsAndLastName = Trim(result & lastname)
End Function

Function InitialsAndLastName(fullname As String) As String
    Dim parts() As String
    Dim i As Integer
    Dim result As String
    
    parts = Split(fullname, " ")
    
    ' Last name is first element
    Dim lastname As String
    lastname = parts(0)
    
    ' Build initials from all middle names
    For i = 1 To UBound(parts) - 1
        result = result & Left(parts(i), 1) & " "
    Next i
    
    InitialsAndLastName = Trim(result & lastname)
End Function

Gebruiken in bijvoorbeeld C2: =InitialsAndLastName(A2)

Voor het extraheren van het nummer in B2:
=RIGHT(A2;LEN(A2)-FIND(“¶”;SUBSTITUTE(A2;” “;”¶”;LEN(A2)-LEN(SUBSTITUTE(A2;” “;””)))))

Die VBA functie is veelzijdiger en robuuster en werkt als er meerdere voornamen zijn.