Værdi ud fra farven af en celle

Læg denne kode i et modul:

Function ColVal(cel)
    If cel.Interior.ColorIndex = 6 Then
        ColVal = 1
    Else
        ColVal = 0
    End If
End Function

Skriv =ColVal(A1) i B1. Så findes værdien af A1.

Du er dog nødt til at genbregne arket hvis baggrunden ændrer sig.

Kan ikke lige gennemskue koden..

Hmmm.. de farvede celler er A2:A50 - talværdien fra B2:B50

Ved ikke lige hvad kode farven ren gul har...

Ren gul er netop 6.

Koden undersøger om baggrundsfarven i den celle, du skriver i parentesen er Gul. I givet fald returneres værdien 1, ellers returneres 0.

Hvordan ved arket, at det gælder for A2:A50 og hvordan ved den hvor den skal returnere værdierne?

Den virker som enhver anden funktion, du bruger i Excel. Den undersøæger en celle, og skriver resultatet der, hvor du har formlen stående. Hvis du skal undersøge alle celler fra A2:A50, så skriv fx formlen i B2, og kopier den til B50. Så skriver den 1 alle de steder, hvor baggrundsfarven i a-kolonnen er gul.

Hmm.. den skriver #NAVN?

=ColVal(A2) ved denne formel

Hvordan har du lagt koden?

VBA editor - MExcel objects ark1

Ah. Du skal lave den i et "rigtigt" modul, ikke et arkmodul. Stå i editoren. Vælg Insert - Module og kopier koden ind der.

Perfekt...

Velbekome :-)