Makro automatisch ausführen ?
Headhunter
ich habe folgendes makro ( erstellt von HAJO ) in meine tabelle eingefügt.
Sub Groß1()
' 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 Range("A1:A2000")
RaZelle = UCase(RaZelle)
Next RaZelle
Application.ScreenUpdating = True
End Sub
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 Range("C1:C2000")
RaZelle = UCase(RaZelle)
Next RaZelle
Application.ScreenUpdating = True
End Sub
nun werden die zellen aber erst verändert, wenn ich die makros einzeln ausführen lasse, geht das nicht automatisch nach der eingabe in die zelle ?
MfG
HANS
Anzeige