Mere end 3 betingelser: Conditional formatting

Du kan enten have 5 forskelligfarvede linjer oveni hinanden og så sætte betingelserne i vba. Eller dele betingelserne op i 2 portioner i vba, dertil hører 2 linjer med 2 conditional formatting på den ene og 3 på den anden. Du kan så arbejde med .visible true/false!~)

Jeg mener ikke der er en wordaround. Men du kan kode det selv i stil med denne, så du kan have uanede kriterier:

Dim lngRed As Long, lngYellow As Long, lngBlack As Long, lngWhite As Long
lngRed = RGB(255, 0, 0)
lngYellow = RGB(255, 255, 0)
lngBlack = RGB(0, 0, 0)
lngWhite = RGB(255, 255, 255)
If Felt1 > 400 Then
Felt1.ForeColor = lngRed
Felt1.BackColor = lngWhite
Else
Felt1.ForeColor = lngBlack
Felt1.BackColor = lngWhite
End If

ok pt bruger jeg bare en tom tekstboks som faar skiftet backcolor. Denne relaterer til individuelle vaerdier i detail sektionen af min rapport, og jeg har lidt problemer med at hente den vaerdi direkte fra koden - jeg gaar ud fra at det skal ligge i rapportens "Open" haendelse, men her kan jeg ikke pege direkte paa vaerdien i et felt :/ Saa jeg er ikke helt sikkert paa hvor jeg kan faa smidt denne kode ind uafhaengigt af om det enten er en kode der skifter farven direkte eller skifter mellem to linjer's visible = true/false. Jeg kan ikke saette boksens Visible attribute i conditional formatting, saa der skal stadig noget kode til et eller andet sted - haaber det giver mening ....

Jeg bruger koden i Detaljesektionens VedUdskrivning.

Har et eksempel jeg kan sende.

hej mugs, det ville vaere alle tiders - gider du maile den til rasmussenj snabela marlab.ac.uk?
Virker vedudksrivning haendelsen baade ved print og visning paa skaermen?

Hej
Den fungerer både på printer og skærm. Jeg skal lige hjem fra arbejde, så kommer den.

Testdb sendt. Havde den alligevel med på arbejde.

Jeg takker mang gange og giver point til begge, omend en god sjat mere til mugs for den fyldestgoerende hjaelp.

Mugs's løsning var langt den flotteste!~)