Tælle farver??

i en celle skriver du f.eks.    =colorcell(E1:F20;\"pink\")

i et vba modul indsætter du denne her:

Function ColorCell(rRange As Range, sColor) As Double
Dim rCell As Range, iColor As Integer
Dim dCount As Double
       
    sColor = UCase(sColor)
    Select Case sColor
        Case \"RØD\"
            iColor = 3
        Case \"LGRØN\"
            iColor = 4
        Case \"BLÅ\"
            iColor = 5
        Case \"GUL\"
            iColor = 6
        Case \"PINK\"
            iColor = 7
        Case \"LBLÅ\"
            iColor = 8
        Case \"BRUN\"
            iColor = 9
        Case \"GRØN\"
            iColor = 10
        Case Else
            iColor = 1
    End Select
   
    For Each rCell In rRange
        If rCell.Interior.ColorIndex = iColor Then dCount = dCount + 1
    Next rCell
    ColorCell = dCount
End Function


Der skal nok laves lidt om på farvenumrene. De farver du bruger finder du numrene på, med at starter makrobåndoptageren, og optage dine farvninger.

En lille forenkling af Flemmings makro.
Du formaterer lige  celler i de farver du nu bruger. fx fra a1:a8
ud for hver af dem skriver du så colorcell(området du vil tælle;a1)
det vil sige at du tæller det antal som har den farve der er i a1

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

Jeg er ikke helt med på hvad du mener. Skal man både bruge formel, og vba modul sammen? Hvis ikke skal jeg så ikke have min celle inde i koden?

Koden danner en funktion, som kan anvendes i arket ligesom f.eks. HVIS-funktionen.

Du smider bare koden ind i et vba-modul og så har du en ny funktion i dit regneark der hedder Colorcell

OK! Nu er jeg med. Man lærer da også noget nyt hver dag. Kan det passe at den ikke opdaterer af sig selv. Dvs. hvis jeg ændrer farverne i mit område, ændres resultat ikke automatisk?

lige under sub colorcell() sætter du linien
Application.Volatile

så sker opdatring øjeblikkelig

hvis du bruger bak\'s så skal første linie se således ud
Function ColorCell(rRange As Range, sColor As Range) As Double

Hvis det er min
Function ColorCell(rRange As Range, sColor As String) As Double

udemærket tilføjelse bak :-) den burde så hedde rColor....!

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

Det or også en fin kode du har lavet. Det med variabelnavne ligger nok ikke lige til mig :)

og det stavning åbenbart heller ikke

hæhæ :-) ja, det er vist en fin løsning

Jeg kan desværre ikke få den til at opdatere med det samme. Selvom jeg har brugt den sidste af Flemming koder. Virker det hos Jer? Er der noget man skla være specielt opmærksom på ved indsætningen af disse moduler? Jeg kører med Excel 97 er det for gammelt?

Jeg er stoppet med at teste, men hvis du skifter farver på nogen celler, så sker der ingen beregning, så vidt jeg husker, så må du trykke F9.

Tak for fornemme svar...

bak du får også points

Tak for Det
Den SKAL opdatere sig selv. prøv at sætte application.volatile lige under funktionsnavnet.

Det hjælper ikke ligegyldigt hvor man anbringen den i koden...

Hvis man sletter opdatere den tilgengæld lige med det samme, pudsigt ..

Som jeg har skrevet tidligere, så aktiverer en farvelægning ikke en beregning, men det gør en f.eks. en sletning. Det er der ikke noget mærkeligt i.

Jeg synes alligevel det er lidt mærkeligt, for det gør den altså for mig.
Prøv at se http://tommy.bak.homepage.dk
Funktioner der virker med farvede celler.

Lige knap rigtigt.
Hvis man direkte sætter farve på sker der kun opdatering hvis man trykker F9, hvorimod hvis man bruger formatpenslen sker opdatering mad set samme

Det var rart at høre :-)

Soory hvis mit svar har givet anledning til misforståelser.
Med et alm. farveskift skal excel naturligvis ikke genberegne et helt regneark,da ingen værdier har skiftet, hvorimod ved en formateringsændring som ved brug af formatpensel skal den genberegne.
(tænk på dato eller nummer formatering)