Gruppe
Ereignis
Problem
Alle Eingaben in Spalte A sollen in Großbuchstaben umgewandelt werden.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If IsEmpty(Target) Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column > 1 Then Exit Sub
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End Sub