Grosschreibung überprüfen und aendern
12.03.2008 08:46:00
TopDog
Ich nochmal.
verwende folgenen abgeänderten Code von Hajo_Zi
Sub Groß2()
' erstellt von Hajo.Ziplies@web.de am 14.03.04
' alles in Großbuchstaben in einem bereich
Dim RaZelle As Range
Application.ScreenUpdating = False
For Each RaZelle In Sheets("Helferlein").Range("A1:A100")
RaZelle = UCase(RaZelle)
Next RaZelle
Application.ScreenUpdating = False
End Sub
Ich möchte dies aufrufen, wenn in Spalte A eine Eintragung, Aenderung oder der gleichen vorgenommen wird.
Wie kann ich dies loesen?
Habe mir gedacht, ich loese es mit
Private Sub Worksheet_Change(ByVal Target As Range)
Call Groß2
End Sub
Aber erstens springt dieses Makro bei allen Aenderungen an und zweitens habe ich da ne tolle "Endlosschleife" gebastelt, wie es scheint.
Kann mir da mal jemand unter die Arme greifen?
thx for all
LG Topdog