Punten plaatsen in een burgerservicenummer

[Robert Smidt]

Beste Helpmij'ers,

Ik ben op zoek naar een vba die een bsn bijv. 123456789B01 wijzigt in 1234.56.789.B.01

Een soortgelijk vba is:

Sub test()

Dim cl As Range
 For Each cl In Range("a1:a" & Range("a" & Rows.Count).End(xlUp).Row)
    If Len(cl) = 12 Then cl = Left(cl, 4) & " " & Right(cl, 2)
 Next
End Sub

Een antwoord zie ik met belangstelling tegemoet.

MvG.
Robert Smidt

 

[snb]

Als dat geen BTW-'nummer' is....

Sub M_snb()
    MsgBox Format("123456789B01", "@@@@.@@.@@@.@.@@")
End Sub

 

[edmoor]

Daar zou je een functie als dit voor kunnen gebruiken:

Function BsnNr(ByVal Bsn As String) As String
    BsnNr = Mid(Bsn, 1, 4) & "." & _
            Mid(Bsn, 5, 2) & "." & _
            Mid(Bsn, 7, 3) & "." & _
            Mid(Bsn, 10, 3)
End Function

Voorbeeld gebruik:

Sub test()
    Dim cl As Range
    For Each cl In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
       If Len(cl) = 12 Then cl.Value = BsnNr(cl.Value)
    Next
End Sub

 

[Robert Smidt]

Werkt perfect...super bedankt mensen