Summe farbig markierter Zellen zum 2.Mal
17.05.2004 13:29:50
Rico
Ich suche die Formel in bedingte Formatierung, um die Anzahl farbig markierter Zellen einer Zeile zu finden. Ich habe bereits einen Vorschlag gestern Nacht bekommen, welcher aber bei mir nicht funktionierte (Fehlermeldung: Bezug, #Name, oder nur die Farbnummer als Kästchenanzeige):
Hier die Idee, die bei mir nicht funktioniert
Option Explicit
Function Farbsumme(Bereich As Range, FarbNr As Integer)
Application.Volatile ' damit bei änderung ausgeführt wird
Dim Zelle
Farbsumme = 0
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + 1
End If
Next
End Function
Sub Farbnummer() ' zum Zahl bestimmen für Farbnummer
Dim i As Integer
i = ActiveCell.Interior.ColorIndex
MsgBox " Farbnummer " & i
End Sub
Vielen Dank im Voraus
Rico
Anzeige