ich möchte, dass alle Eingaben im Zellbereich A1:A10 in Grossbuchstaben erscheinen.
Im Voraus vielen Dank für eure Unterstützung.
mfg
Fritz
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Object
Set isect = Application.Intersect(Target, Range("A1:A10"))
If Not isect Is Nothing Then isect.Value = UCase(isect.Value)
End Sub
Gruß