Automatisch hoofdletters

[Prutskie]

Wie kan mij helpen..........

Als ik in een cel een lijst met namen valideer is er een
mogelijkheid om in die cel een naam te schrijven. Nu blijft deze
in kleine letters staan. Is er een mogelijkheid om dit automatisch
te veranderen naar Hoofdletters.


Alvast bedankt

 

[Jan van Asseldonk]

Plak onderstaande code via de vba-editor bij het blad waarin dit moet gebeuren.
In onderstaand geval wordt cel A1 altijd omgezet naar hoofdletters.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A1")) Is Nothing Then
Target.Value = UCase(Target.Value)
End If
End Sub

 

[Prutskie]

Iets wat latere reactie, maar onwijs bedankt voor je uitleg

Greetzzzz
Prutskie