![](https://images.gutefrage.net/media/default/user/15_nmmslarge.png?v=1551279448000)
![](https://images.gutefrage.net/media/default/user/14_nmmslarge.png?v=1551279448000)
Antwort
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 ?