• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

punten tussen voorletters

Status
Niet open voor verdere reacties.
Voor Excel 365:
Code: 
=TEKST.COMBINEREN(".";WAAR;DEEL(SUBSTITUEREN(A2;".";"");REEKS(10);1))&"."
Iets minder elegant voor eerdere versies:
Code: 
=SUBSTITUEREN(SUBSTITUEREN(SUBSTITUEREN(DEEL(SUBSTITUEREN(A2;".";"");1;1)&"."&DEEL(SUBSTITUEREN(A2;".";"");2;1)&"."&DEEL(SUBSTITUEREN(A2;".";"");3;1)&"."&DEEL(SUBSTITUEREN(A2;".";"");4;1)&".";"....";".");"...";".");"..";".")
 
Laatst bewerkt:
Ik weet niet of dit werkt in oudere versies (invoeren met ctrl+shft+enter, matrixformule)

Code: 
=CONCAT(MID(SUBSTITUTE(A2;".";"");ROW(INDIRECT("1:"&LEN(SUBSTITUTE(A2;".";""))));1)&".")

Of

Code: 
Function jec(cell As String) As String
  With CreateObject("vbscript.regexp")
    .Pattern = "(.)"
    .Global = True
    jec = .Replace(Replace(cell, ".", ""), "$1.")
  End With
End Function
 
Laatst bewerkt:
een UDF:

Code: 
Function F_snb(c00)
   F_snb = Format(Replace(c00, ".", ""), Replace(Space(Len(Replace(c00, ".", ""))), " ", "@."))
End Function
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan