Alleen voorletters van namen overnemen?

[ChristianEvers]

Hallo,

ik heb een kolom met voornamen maar ik wil alleen de initialen.
Is hier een snelle formule voor of moet ik met 'tekst naar kolommen' de namen gaan uitsplitsen en dan met =links(A1;1) gaan werken?

Ik zal de bewerking vaker moeten gaan uitvoeren dus heb graag de makkelijkste manier.

groeten,
Christian

 

[Wigi]

Met deze nieuwe functie kan het ineens:

Function Voorletter(r As Range) As String

    Dim i As Integer
    Dim sTemp As String
    
    sTemp = " " & r.Value
    
    For i = 1 To Len(sTemp)
        
        If Mid(sTemp, i, 1) = " " Then Voorletter = Voorletter & " " & UCase$(Mid(sTemp, i + 1, 1)) & "."
        i = i + 1
        
    Next
    
    Voorletter = Trim$(Voorletter)

End Function

Wigi

 

[ChristianEvers]

heb even moeten uitvinden hoe je zelfgemaakte functies toevoegd maar het werkt perfect!

dankjewel