Habe diese Methode ausprobiert : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then On Error GoTo ErrorHandler Application.EnableEvents = False Target.Value = UCase(Target) ErrorHandler: Application.EnableEvents = True End If End Sub

Das klappt auch ganz gut, nur habe ich zwei zellen die so funktionieren sollen. Untereinander wäre kein Problem dann wäre es: A1:A2. Das wären aber die Zellen B7 und F7. Irgendeine Lösung für das Script ?