Initialen van namen bepalen.

[danny147]

Beste,

Heb op het forum een code gevonden voor het bepalen van Initialen.

Enkel doet hij het goed als de naam uit 2 delen bestaat en niet uit meerdere.

Vb.

Beirnaert Dirk wordt B.B. is goed
Van De Walle Davy wordt V.D. ipv V.D.W.D.
De Schepper Danny wordt D.D. ipv D.S.D.

De code die ik hier voor gebruik van WIGI is:

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

Kan iemand deze voormij aanpassen ?

Groetjes Danny. :thumb:

 

[Roncancio]

Je moet de i-i+1 weghalen.
Dus:

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)) & "."
[B][COLOR="Red"]'        i = i + 1[/COLOR][/B]
        
    Next
    
    Voorletter = Trim$(Voorletter)

End Function

Met vriendelijke groet,


Roncancio

 

[danny147]

Beste Roncancio

Nu doet hij het perfect.

Bedankt :thumb:

Groetjes Danny. :thumb: