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
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