Voorletters met punten

[veenvlij]

hallo,

ik heb een excel bestand met voorletters in verschillende formaten bv:
a.j.
imj
J.m
t.est

deze wil ik graag in hoofdletters, en met een punt achter de letter :
A.J.
I.M.J.
J.M.
T.E.S.T

heb de volgende code in het forum gevonden, echter bij een bestaande punt word er een punt achter geplaatst. bijv : a.a. word A..A..

Function HfdLtPnt(sInhoud As String) As String
Dim uitvoer As String
Dim positie As Integer

While positie < Len(sInhoud)
positie = positie + 1
uitvoer = uitvoer + UCase$(Mid$(sInhoud, positie, 1) + ".")
Wend
HfdLtPnt = uitvoer
End Function


Kan iemand me hierbij helpen?
Thanks

 

[MeltedForest]

Sorry verkeerd gelezen

 

[veenvlij]

dank voor het snelle antwoord, echter is dit niet het probleem.

in bestaande code word aa A.A. en a.a. A..A..
gaat erom dat als er al een punt staat, er geen tweede punt achter word geplaatst.

 

[Joske2000]

Met de functie substitute kan je de punten eerst weghalen.
Dan werkt de VBA functie wel naar behoren.

Joske

 

[danny147]

Beste veenvlij

Gebruik de volgende code :

=SUBSTITUEREN(A1;".";"")

Dan de VBA code uitvoeren.

Groetjes Danny. :thumb:

 

[snb]

Function voorletters(sInhoud As String) As String
  For j = 1 To Len(Replace(sInhoud, ".", ""))
    voorletters = voorletters & Mid(Replace(sInhoud, ".", ""), j, 1) & "."
  Next
End Function

 

[veenvlij]

Hallo SNB,

dank je voor de code, echter ik krijg bij bv : m.l. als uitkomst m..l..
dus nog steeds dubbele punten en kleine letters.

de optie substitutie is een extra handeling, dus 2 keer een kolom aanmaken en uitvoeren.
zie het graag in 1 handeling uitgevoerd.

John

 

[veenvlij]

hallo snb,

de functie aangepast naar :

Function voorletters(sInhoud As String) As String
For j = 1 To Len(Replace(sInhoud, ".", ""))
voorletters = voorletters & UCase$(Mid(Replace(sInhoud, ".", ""), j, 1) & ".")
Next
End Function

dit werkt nu met hoofdletterd,
dank jullie alle voor de input !!

John

 

[Roncancio]

Gaarne de vraag dan op opgelost zetten (rechtonder het scherm).
Bvd.

Met vriendelijke groet,


Roncancio