Textbox in UserForm hoofdletter bij het tweede woord.

[markwat]

TextBox in UserForm het eerste woord start met hoofdletter maar nu ook een hoofdletter bij het tweede woord.

Private Sub TextBox3_Change()
TextBox3.Text = UCase(Left(TextBox3.Text, 1)) & LCase(Mid(TextBox3.Text, 2))
End Sub

 

[edmoor]

Kijk hier bij Proper case:
https://www.automateexcel.com/vba/upper-lower-proper-case-functions/

 

[markwat]

Gevonden!

Bedankt

 

[edmoor]

In combinatie met je vorige vraag:

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr(1, "<>:/\|?*" & Chr(34), Chr(KeyAscii)) > 0 Then KeyAscii = 0
    TextBox3.Text = StrConv(TextBox3.Text, vbProperCase)
End Sub

Die TextBox3_Change kan je dan helemaal weg laten.

 

[markwat]

Beste Edmoor,

ik was nog aan het stoeien.... maar dit werk ook weer, geweldig!!
hartelijk dank!