Omzetten van klein naar hoofdletter

[kappel]

In een bepaalde kolom wil ik dat de gebruikte letter altijd als hoofdletter wordt weergegeven.
Hoe doe ik dat?
Dank voor uw antwoord

 

[HSV]

Voor kolom A.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 1 Then Target = UCase(Target)
End Sub

 

[kappel]

Voor kolom A.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 1 Then Target = UCase(Target)
End Sub

Oei, hoe/waar vul ik dit in?

 

[HSV]

Druk Alt+F11 voor het openen van VB-editor.
Dubbelklik aan de linkerzijde op het blad van toepassing.
Kopiëer de code vanaf forum, en plak het in het grote witte vlak.
Sluit daarna het Vba venster.

 

[kappel]

Druk Alt+F11 voor het openen van VB-editor.
Dubbelklik aan de linkerzijde op het blad van toepassing.
Kopiëer de code vanaf forum, en plak het in het grote witte vlak.
Sluit daarna het Vba venster.

 

[kappel]

Helemaal perfect alles bijgewerkt. Dank dank