Supportnet / Forum / Tabellenkalkulation
Makro automatisch ausführen
Frage
Hallo zusammen !
Kann man das u.a Makro so verändern,daß es automatisch immer dann ausgeführt wird
wenn in den Bereichen A6:E6,A8:E8,A10:E10 eine Zelle mit der Farbe Hellgrün
(Interior.ColorIndex = 4) formatiert oder diese Farbe gelöscht wird.
Es sollen also in H8 immer die Anzahl der Hellgrünen Zellen im genannten Bereich
gezählt werden sobald sich die Anzahl verändert und ohne das ich das Makro erst manuell starten muss.
Sub Zählen_GRÜNE_Zellen()
Dim Zelle As Object
Range("A6:E6,A8:E8,A10:E10").Select
For Each Zelle In Selection
If Zelle.Interior.ColorIndex = 4 Then A = A + 1
Next
Range("H8").Select
Range("H8").Formula = A
End Sub
Ich hoffe es ist machbar und Bedanke mich schon mal im voraus
für eure Mühe.
Antwort 1 von Primut
Hi Anno 2005,
prinzipiell lassen sich Makros schon automatisch starten, allerdings nur ausgelöst durch bestimmte Ereignisse.
Diese wären ZB. Change (ein Zellwert ändert sich), Activate und Deactivate (Blatt aufrufen bzw. verlassen) Doubleclick und RightClick (entsprechendeClicks mir dem Coursor)
Das Ändern einer Zellarbe zählt leider nicht als solch Ereignis, also müßtest du dir einen sinnvollen Zusammenhang (bzw. Ereignis) ausdenken, mit dem es sich aktivieren ließe.
Unterm Strick wäre ja ein Doppel - Click auch ein manueller Start, wenn auch ein bequemer, aber er läßt sich eben auch vergessen...
Gruß Primut
prinzipiell lassen sich Makros schon automatisch starten, allerdings nur ausgelöst durch bestimmte Ereignisse.
Diese wären ZB. Change (ein Zellwert ändert sich), Activate und Deactivate (Blatt aufrufen bzw. verlassen) Doubleclick und RightClick (entsprechendeClicks mir dem Coursor)
Das Ändern einer Zellarbe zählt leider nicht als solch Ereignis, also müßtest du dir einen sinnvollen Zusammenhang (bzw. Ereignis) ausdenken, mit dem es sich aktivieren ließe.
Unterm Strick wäre ja ein Doppel - Click auch ein manueller Start, wenn auch ein bequemer, aber er läßt sich eben auch vergessen...
Gruß Primut