Worksheet_Change funktioniert nicht
24.10.2005 21:36:35
Simon
hab mal wieder ein kleines Problem,
will mit einem Worksheet_Change Ereignis in einem Tabellenblatt erreichen das die eingaben in einemBestimmten Bereich immer groß geschrieben werden,
hab auch schon nen passenden code, denke ich, nur irgendwie reagiert gar nichts keine Fehlermeldung, einfach nichts,
an was könnte das denn liegen?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("c2:c100")
If Not Intersect(Target, Bereich) Is Nothing Then
Target = UCase(Target)
End If
End Sub
bedanke mich schon mal für eure mühe