Met onderstaande macro kan dat.
Sub TelGekleurdeCellen()
'
' Controleert de gekleurde cellen in een op te geven gebied
' Vergelijkt de gevonden kleur met die van A1 en indien gelijk
' dan wordt de kleur gewijzigd in de opgegeven kleur en wordt de teller met een opgehoogd.
' Aan het eind wordt getoond hoeveel maal de kleur vervangen is.
'
Dim sControlKleur, sNieuweKleur As Integer
Dim sRangeAdres As String
Dim sStartCel As String
Dim sEindCel As String
Dim rngTel As Range
Dim rng As Range
Dim rngTeller As Integer
'Application.ScreenUpdating = False
rngTeller = 0
Range("A1").Select
sControlKleur = Range("A1").Interior.ColorIndex
sNieuweKleur = InputBox("Geef nummer van nieuwe kleur op: ")
sStartCel = InputBox("Geef het adres van de eerste cel " & _
"in het op kleur te controleren gebied." & _
Chr(13) & "bijv. 'A1'", "Geef het celadres")
If sStartCel <> "" Then
sEindCel = InputBox("Geef het adres van de laatste cel " & _
"in het op kleur te controleren gebied." & _
Chr(13) & "bijv. 'B4'", "Geef het celadres")
'sEndCel = Range(sStartCel).End(xlDown).Address
Set rngTel = Range(sStartCel, sEindCel)
For Each rng In rngTel
If rng.Interior.ColorIndex = sControlKleur Then
rng.Interior.ColorIndex = sNieuweKleur
rngTeller = rngTeller + 1
End If
Next
End If
MsgBox ("In het opgegeven gebied zijn " & rngTeller & " cellen voorzien van een nieuwe kleur.")
End Sub
EDIT: Tip, indien je de kleurnummers wilt weten plaats de cursor dan ergens in colorindex en druk op F1.
