ich habe in einem bestimmten Bereich (Spalte A) eine bedingte Formatierung angelegt.
Gibt es eine Möglichkeit auf einen Blick zu sehen, in wievielen Zellen die Bedingung wahr ist?
Vielen Dank für jeden Hinweis.
Gruß Peter
Sub test()
a = 0
For i = 1 To 10
If Cells(i, 1).Value Like Cells(i, 1).FormatConditions(1).Formula1 Then a = a + 1
Next i
MsgBox a & " zutreffende Bedingungen gefunden"
End Sub