Automatisches Update des Macro
08.05.2004 17:18:18
Örni
Ich suche mich schon länger in der Recherche und habe noch nichts passendes gefunden.
Hier mein Problem: Ich habe drei Scripts (siehe unten) welche mir die Anzahl Zellen melden, die zu einer definierten Farbe formatiert sind. Die Anzahl wird berechnet, wenn ich einen Button klicke, welche mit dem Execute gekoppelt ist. Ich möchte aber, dass die Anzahl automatisch beim formatieren gerechnet wird, ohne dass ich den Button drücken muss. Kann mir jemand helfen?
Gruss
Örni
Sub Execute()
Call Zähler
Call Doppelte
Call Mehrfache
End Sub
Sub Zähler()
Dim iZähler As Integer
Dim c As Range
For Each c In Range("B3:M30")
If c.Interior.ColorIndex = 6 Then iZähler = iZähler + 1
Next
Cells(27, 28).Value = iZähler
End Sub
Sub Doppelte()
Dim iZähler As Integer
Dim c As Range
For Each c In Range("N3:Y30")
If c.Interior.ColorIndex = 45 Then iZähler = iZähler + 1
Next
Cells(29, 28).Value = iZähler
End Sub
Sub Mehrfache()
Dim iZähler As Integer
Dim c As Range
For Each c In Range("N3:Y30")
If c.Interior.ColorIndex = 38 Then iZähler = iZähler + 1
Next
Cells(30, 28).Value = iZähler
End Sub
Anzeige