Private Sub Worksheet_Change(ByVal Target As Range)
'alle Kleinbuchstaben automatisch in Großbuchstaben umwandeln
If Not Intersect(Target, Range("D6:M36,R6:AA36,AF6:AO36")) Is Nothing Then
  On Error GoTo ErrorHandler
  Application.EnableEvents = False
  Target.Value = UCase(Target)
ErrorHandler:
  Application.EnableEvents = True
End If
End Sub