Gruppe
Ereignis
Problem
Wie kann ich erreichen, daß Zelleingaben automatisch in Großbuchstaben umgewandelt werden?
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("B3:F20")) _
Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Target = UCase(Target)
ERRORHANDLER:
Application.EnableEvents = True
End Sub