betinget formatering kan man lave det i VBA

Tjek evt. denne

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbaxl11/html/xlobjFormatConditions1_HV05201400.asp

Jeg kan ikke få det til at virke hjææælp!
skodaen

upps det skulle ha' været en kommentar

if a <> 0 then
a2 = rgb(255.0.0)
end if

hvordanskal det stå i VBA?
hvis celle A1 >0 og celle A2=ingenting(""):
celle A2 fyld farve rød
hvis celle A1 >0 og celle A2>0:
celle A2 fyld farve grå
vil så gerne hjælpes
skodaen(nybegynderen)

Sub Test2()
  With Range("A2")
      .FormatConditions.Delete
      .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=OG($A$1>0;$A$2="""")"
      .FormatConditions(1).Interior.ColorIndex = 3
      .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=OG($A$1>0;$A$2>0)"
      .FormatConditions(2).Interior.ColorIndex = 15
  End With
End Sub

Så virker det 1000 tak
skodaen :)

Hej bak
Jeg kan ikke give dig de 30 point da dit indlæg er en kommentar.
skriv det som et svar så får du dem.
tak igen igen
skodaen

ok :-)

sådan

Jeg har prøvet at ændre referencer, hvorfor virker det ikke?
(virker stadig på A1 & A2)
Sub Test2()
  With Range("B1")
      .FormatConditions.Delete
      .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=OG($A$1>0;$B$1="""")"
      .FormatConditions(1).Interior.ColorIndex = 3
      .FormatConditions.Add Type:=xlExpression, Formula1:= _
            "=OG($A$1>0;$B$1>0)"
      .FormatConditions(2).Interior.ColorIndex = 15
  End With
End Sub

koden du har skrivet, virker fint for mig.
Står du i det rigtige ark når du kører makroen ?

Hej bak
Jeg er virkelig nybegynder.
Man skal kører makroer(funktioner/makro/makroer/afspil)
inden de er aktive?
Det virker nu tusind tak for hjælpen.
mvh.
skodaen

Jeg havde håbet at det ville løse mit andet problem,overskrivning af betinget formatering i ubeskyttede celler,hvis man bruger indsæt(uden at markere, kun værdier, samme format........)
Det gør det ikke, eller?
skodaen