Hvordan tæller jeg celler med baggrundsfarver GRØN

Du indsætter denne kode i VBA

Function ColorCell(rRange As Range, rColor As Range) As Double
Dim rCell As Range, iColor As Integer
Dim dCount As Double
    Application.Volatile
    For Each rCell In rRange
        If rCell.Interior.ColorIndex = rColor.Interior.ColorIndex Then dCount = dCount + 1
    Next rCell
    ColorCell = dCount
End Function

og indsætter Funktionen :

+Colorcell(range;farven)

D.v.s. du indsætter  i A2

+Colorcell(B:B;A3)

i celle A3 har du markeret med den grønne du ønsker der skal tælles

Her er et andet lille eksempel:

Sub FindFarve()
    Dim intAntal As Integer
    Range("B1").Select
    Do Until IsEmpty(ActiveCell)
        If ActiveCell.Interior.ColorIndex = 10 Then intAntal = intAntal + 1
        ActiveCell.Offset(1, 0).Select
    Loop
    Range("A2").Select
    ActiveCell = intAntal
End Sub

Hej Tida Optællingen virker fint, men det sker ikke automatisk når der ændres på antallet af grønne felter. Jeg skal ind og ændre i "Formel Linien" før den opdatere. Er der en løsning på dette?

Til CoolKey - Jeg kan ikke få den til at virke. Er der noget info som jeg ikke har modtaget. Vis evt. eks.

Lennert

Det lyder mærkeligt - Har du dine indstillinger sat til at beregning sker automatisk ?

Mit eksempel kræver, at der står noget i felterne i kolonne B.

lennert-f > farveskift i en celle, trikker ikke en funktion, det gør kun ændring i en celle.

Men koden, som tida har sat ind, genberegner ved F9, så tryk der efter du har ændret farver.

Hej Tida - kan du ikke sende et svar så du få dine point?

Her er svar :-)

om igen