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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen