Ga naar inhoud

Aanbevolen berichten

Beste,

Dit kan je eventueel oplossen met een macro.

Ik had in kolom A een aantal cellen gekleurd met geel , rood en groen

Sub GekleurdeCellenTellen()

rij = 1: kolom = 1: gekleurd = 0

Do

Cells(rij, kolom).Select

If Selection.Interior.ColorIndex = 6 Then gekleurd = gekleurd + 1

If Selection.Interior.ColorIndex = 4 Then gekleurd = gekleurd + 1

If Selection.Interior.ColorIndex = 46 Then gekleurd = gekleurd + 1

rij = rij + 1

Loop Until rij = 20

Range("a30").Value = gekleurd

End Sub

Link naar reactie
Delen op andere sites

×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.