Punten in voorletters

[Kramer]

Ik heb in een cel de voorletters staan van een naam.

De grote kan dus verschillen. Sommige hebben 1 voorletter, een andere 5.

Is er een code waarbij je dus kan zeggen dat er punten tussen de letters komen.

Het staat nu zo
gjmj

en zo moet het komen
g.j.m.j.

 

[Wigi]

Zet dit in een nieuwe module in VBA:

Function MetPunten(str As String) As String
    Dim i As Integer
    For i = 1 To Len(str)
        MetPunten = MetPunten & Mid(str, i, 1) & "."
    Next
End Function

Dan gebruik je het als volgt:

=MetPunten(A1)

Pas aan aan het bereik.

Wigi

 

[Kramer]

Bedankt

Nu zijn het nog maar 2 formules om een adressen bestand aan te passen.

 

[Wigi]

Graag gedaan. Kopieer de namen met punten naar waarden om de formules weg te nemen, als je dat wil.

Wigi

 

[Kramer]

???

Hoe bedoel je dat??

 

[Wigi]

Selecteer cellen met formules, doe Bewerken > Kopiëren, en vervolgens Bewerken > Plakken Speciaal > Waarden. Dan zijn de formules weg, maar de waarden blijven behouden.