Initialen generen uit namen

[tonissteiner]

Beste Forum gebruikers,

ik zou graag in Excel een formule hebben die de initialen in een bepaalde cel kan generen als ik in een andere cel de volledige naam geef.
bijvoorbeeld:

Pieter-Jan Breugel zou dan PJB moeten worden
Jan Klaassen zou dan JK moeten worden
Vincent Van den Bergh zou dan VVDB moeten worden

iemand die mij kan helpen hoe ik dit kan doen?

alvast bedankt

 

[edmoor]

Dat kan bijvoorbeeld met een eigen VBA functie in een module:

Function Initialen(ByRef volnam As String)
    Dim i As Integer
    
    Initialen = Left(volnam, 1)
    
    For i = 1 To Len(volnam)
        Select Case Mid(volnam, i, 1)
            Case " ", "-"
                Initialen = Initialen & Mid(volnam, i + 1, 1)
                i = i + 1
        End Select
    Next
    
    Initialen = UCase(Initialen)
End Function

In A1 bijvoorbeeld: Pieter-Jan Breugel
In B1 dan: =initialen(A1)
De waarde in B1 wordt dan: PJB

 

[tonissteiner]

Bedankt maar ik heb het gecopieerd in excel op een nieuw werkblad maar het lijkt niet te werken.
Wat zou ik verkeerd doen? Is er nog een andere oplossing mogelijk?

Dank

 

[edmoor]

Het werkt prima maar je moet het wel in een VBA module zetten.
Dus, druk op ALT-F11 om de VBA editor te openen.
Klik nu met rechts op Thisworkbook, kies invoegen en dan module.
Plak nu de code in het rechterscherm.

 

[tonissteiner]

Bedankt, het werkt.

 

[edmoor]

Graag gedaan

 

[Lauke]

...........
In A1 bijvoorbeeld: Pieter-Jan Breugel
In B1 dan: =initialen(A1)
De waarde in B1 wordt dan: PJB

Hallo Excellers,

Als ik de bij #2 genoemde code in de VBA module plak, vervolgens A1 vul met: Pieter-Jan Breugel en bij B1: =initialen(A1) ingeef.
Krijg ik in B1 niet de initialen "PJB", maar "=initialen(A1)".

Wat doe ik verkeerd?
Of anders gevraagd, hoe kan ik de initialen (in dit geval PJB) te voorschijn halen?

 

[OctaFish]

Je cel heeft waarschijnlijk de eigenschap <Tekst>. Druk op <Ctrl>+<1> (Celeigenschappen dus) en kies voor <Standaard> op het tabblad getal. Druk in de cel op <F2> en <Enter> om de celinhoud te activeren.

 

[Lauke]

Zo simpel.........

Thanx!