Re: Hintergrundfarben summieren: möglich?
19.05.2002 12:43:20
WernerB.
Hallo Fridolin,in Hans W. Herber's Archiv habe ich eine Function gefunden, die ich passend für Dich modifiziert habe.
Diese Function musst Du in einem normalen Standardmodul hinterlegen:
In der Zelle, in der die Summe der Zellen mit einer bestimmten Hintergrundfarbe erscheinen soll, folgende Formel eingeben:
= CountColor(A1:A10;3)
"A1:A10" ist der Bereich, in dem die Zellen mit einer bestimmten Hintergrundfarbe summiert werden sollen; die "3" steht hier für die Farbe Rot.
Nun ist es aber leider so, dass Excel nicht auf Format-Veränderungen reagiert, wenn man nicht ein bisschen nachhilft. Wenn Du also die Anzahl der Zellen mit roter Hintergrundfarbe in dem Bereich veränderst, zeigt Excel in der Ergebniszelle immer noch den alten Wert an.
Alternativ zum Gebrauch der F9-Taste kannst Du auch im Tabellenblatt-Modul den folgenden Code hinterlegen (als Ergebniszelle habe ich "A11" angenommen):
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.Range("A11").Calculate
End Sub
Allerdings machen mehrere solcher Konstrukte Excel erheblich langsam, weil es nach jedem Mausklick neu rechnet. Diesen Nachteil musst Du leider in Kauf nehmen.
Noch etwas wichtiges: Die Hintergrundfarben dürfen nicht durch bedingte Formatierung erzeugt werden!
Viel Erfolg wünscht
WernerB.