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ß
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen