das untenstehende Makro habe ich im Form gefunden und so abgeändert (Versuch), dass bei 2 Spalten automatisch in Grossbuchstaben umgewandelt wird.
Leider funktioniert das Ganze so nicht.
Kann mir bitte jemand weiterhelfen?
Danke im Voraus
Markus
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("I:I") Or Range("Y:Y")) _
Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Target = UCase(Target)
ERRORHANDLER:
Application.EnableEvents = True
End Sub