VBA Excel 2007. Onderwerp : Specifieke gekleurde Cellen tellen

[Schoofland]

Ik heb een Worksheet met een Range (“B10: G700”).
Deze Range bevat ingekleurde cellen en deze zijn ook opgevuld met cyfers.
Al de Cellen hebben diverse kleuren die ingekleurd zijn met de instructie
Interior.Color = vbBlue of Vbgreen etc

Vraag
Ik zoek een compacte VBA code om bv het aantal cellen te tellen
dat eenzelfde kleur heeft bijvoorbeeld (Interior.Color = vbBlue)
Bedankt voor je reactie
Bob Schoofland

 

[edmoor]

Zoiets:

Sub KleurenTellen()
    For Each cl In Range("B10:G700")
        Select Case cl.Interior.Color
            Case vbBlue:    vblue = vblue + 1
            Case vbGreen:   vgreen = vgreen + 1
            Case vbRed:     vred = vred + 1
        End Select
    Next cl

    MsgBox "vbBlue: " & vblue
    MsgBox "vbGreen: " & vgreen
    MsgBox "vbRed: " & vred
End Sub

 

[Schoofland]

Beste Edmoor

Bedankt voor je snelle reactie en de compacte VBA code.
Ik kan nu weeral verder in mijn "prive VBA realisatie" en leerde wat nieuws !
Met vriendelijke grt ! Bob Schoofland

 

[edmoor]

Graag gedaan en welkom bij Helpmij
Wil je je vraag ook nog even als Opgelost markeren?