Ich suche die Formel in bedingte Formatierung, um die Anzahl farbig markierter Zellen einer Zeile zu finden.
Vielen Dank im Voraus
Rico
Function Farbsumme(Bereich As Range, Farbe 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
versuche es so (glaube ist von HajoZi)
gruss geri