funktion in vba mit bedingter formatierung
04.05.2005 16:26:38
Hans
wer kann mir hierbei helfen?
ich habe folgende funktion:
Function Farbsumme(Bereich As Range, Farbe As Integer)
Dim Zelle
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + 1
End If
Next
End Function
damit kann ich nun mit der formel =farbsumme(A1:A10;3) im bereich A1:A10 alle roten zellen zählen. das klappt auch wunderbar, außer die zellen werden durch eine bedingte formatierung formatiert.
wer es testen will, muss daran denken, dass nach einer änderung neu berechnet werden muss.
gruß hans
Anzeige