Hoofdletters

[TheWendigo]

Beste wensen voor iedereen.
Ik heb hier ooit op het forum een (vba)code gevonden om de eerste letter van een woord in een hoofdletter te veranderen ongeacht waar je dat woord schreef en dit gebeurde autom. dus brussel schreef je en als je de cel verliet kwam er Brussel. Ik vind het niet meer terug kan iemand mij hier terug aan helpen?

Dank u

 

[Roncancio]

Zo kan het:

Private Sub Worksheet_Change(ByVal Target As Range)
If Left(Target.Value, 1) <> UCase(Left(Target.Value, 1)) Then Target.Value = WorksheetFunction.Proper(Target.Value)
End Sub

Met vriendelijke groet,


Roncancio

 

[TheWendigo]

Zo kan het:

Private Sub Worksheet_Change(ByVal Target As Range)
If Left(Target.Value, 1) <> UCase(Left(Target.Value, 1)) Then Target.Value = WorksheetFunction.Proper(Target.Value)
End Sub

Met vriendelijke groet,


Roncancio

yep da is hem vriendelijk bedankt

 

[jack009]

zo kan het:

private sub worksheet_change(byval target as range)
if left(target.value, 1) <> ucase(left(target.value, 1)) then target.value = worksheetfunction.proper(target.value)
end sub

met vriendelijke groet,


roncancio

hallo roncario

ik kwam dit tegen op het forum, het is wat ik zoek, maar ik heb het gekopieerd naar programmacode, maar het werkt nog niet wat doe ik verkeerd?

Bvd

 

[Roncancio]

hallo roncario

ik kwam dit tegen op het forum, het is wat ik zoek, maar ik heb het gekopieerd naar programmacode, maar het werkt nog niet wat doe ik verkeerd?

Bvd

Waar heb je de code precies geplaatst.
De code werkt zodra je iets intoetst in een cel.
De tekst in die cel wordt dan omgezet.

Met vriendelijke groet,


Roncancio

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
  Target = StrConv(Target.Value, vbProperCase)
End Sub