habe dies gefunden:
Private Sub Worksheet_Change(ByVal Target As Range)
' erstellt von Hajo.Ziplies@web.de 16.08.03
' http://home.media-n.de/ziplies/
' alle Buchstaben Groß in einem bestimmten Bereich
Dim RaBereich As Range, RaZelle As Range
Application.EnableEvents = False
' Bereich der Wirksamkeit
On Error Resume Next
Set RaBereich = ActiveSheet.Range("E7:E11, G7:G17")
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
RaZelle.Value = UCase(RaZelle.Value)
End If
Next RaZelle
Application.EnableEvents = True
' ActiveSheet.protect
Set RaBereich = Nothing
End Sub
Das Blöde ist, wenn ich etwas in Zelle E3 eingebe wird auch Groß geschrieben.Des Weiteren, wenn ich dies einsetze:On Error Resume Next
kommt keine Fehlermeldung, sonst kommt Fehlermeldung.
mfg Kurt P