ich möchte auf einem Excelblatt die Zellen mit einer bestimmten Farbe (z.B. Rot und schwarz) zählen. Die eingefärbten Zellen befinden sin in Zeilen die alle 9 Zeilen erneut gezählt werden müssen. (z. B. a7:cs7,a16:cs16,a25:cs25 usw.).
Sub Farben_zählen_in_Bereich() 'A7:CS7, dann immer 9 Zeilen weiter bis Zeile 100
Dim rot As Integer
Dim schwarz As Integer
Dim Zeile As Integer
Dim Spalte As Integer
rot = 0
schwarz = 0
For Zeile = 7 To 100 Step 9 ' Zeile 100 (Obergrenze) eventuell hier anpassen
For Spalte = 1 To 97
If Cells(Zeile, Spalte).Interior.ColorIndex = 3 Then rot = rot + 1
If Cells(Zeile, Spalte).Interior.ColorIndex = 1 Then schwarz = schwarz + 1
Next Spalte
Next Zeile
MsgBox rot & " rote Zellen im Bereich!"
MsgBox schwarz & " schwarze Zellen im Bereich!"
End Sub