Nochmal Zellfarbe zählen..
24.01.2008 09:14:20
Thomas
wie mir geraten wurde habe ich ein Makro gesucht u. gefunden:
Function FarbeZaehlen(Rg)
Dim C As Range
For Each C In Rg.Cells
If C.Interior.ColorIndex = 3 Then
FarbeZaehlen = FarbeZaehlen + 1
End If
Next C
End Function
Das Makro habe ich in ein Modul eingefügt,
es funktioniert, aber wenn sich die Anzahl der gefärbten Zellen ändert , wird die neue Anzahl nicht berechnet.
z.B. 3 Rote Zellen = 3, 4 Rote Zellen = immer noch 3
Kann mir jemand helfen ?
Danke Thomas
Anzeige