Eerste woord hoofdletter, de rest kleine letter vba

[Robert Smidt]

Beste Helpmij'ers,

Graag zou ik een vba-code tegemoet willen zien die binnen een bereik van cel C10 t/m C15 ongeacht de opmaak van hoofdletters en kleine letters; het eerste woord voorziet van een hoofdletter en alle volgende woorden voorziet van uitsluitende kleine letters. Ik dacht dat ik een code had gevonden, maar helaas doet deze niet hetgeen ik ervan verwacht.

For Each cl In Range("c10:c15").SpecialCells(xlCellTypeConstants, 2)
    cl.Value = UCase(Left(cl.Value, 1)) & Right(cl.Value, Len(cl.Value) - 1)
Next

Alvast bedankt.

Robert

 

[HSV]

cl = StrConv(cl, vbProperCase)

Excuus, die maakt van elk woord een hoofdletter.

Dit is beter.

cl.Value = UCase(Left(cl.Value, 1)) & StrConv(Right(cl.Value, Len(cl.Value) - 1), vbLowerCase)

 

[Robert Smidt]

Top, doet precies wat hij moet doen...super bedankt...:thumb:

 

[snb]

For Each it In Range("c10:c15").SpecialCells(2, 2)
    it.Value = UCase(Left(it, 1)) & lcase(mid(it,2))
Next