Excel 2002 - If Then Abfrage

[Garack]

Hallo,

A1 bis A40 sind Dezimalwerte zwischen 1 und 200


B1 bis B40 auch


nun will ich abfragen wenn B1 25% größer ist als A1 dann soll er das Feld B1 Rot machen

Das gleiche mit B2 und A2 usw.

Grundsätzlich kenen ich If then abfragen alsi if Range ("B1").Value > range ("A1") then ...

Aber wie gehts genau??

 

[simpsonsfan]

Hallo, ich weiß nicht, ob's dir hilft oder ob dir das auch schon bewusst ist, aber der WENN-Teil allein wäre ja ganz simpel :

"=WENN(B1>=1,25*A1;Dann;Sonst)".

wie man excel sagt, dass es eine bestimmte zelle je nach formelergebnis einfärben soll weiß ich jetzt aber auch nicht.

 

[Mr. Snoot]

Stichwort Bedingte Formatierung: http://www.tippscout.de/excel-bedingte-formatierung-nutzen_tipp_1389.html

Die Formel dafür wäre dann: =B1>1,25*A1


edit: wobei das da oben ja VBA ist. Dann ginge das am einfachsten mit einer Schleife:

For i = 1 To 40
  If Range("B" & i) > 1.25 * Range("A" & i) Then
    Range("B" & i).Interior.ColorIndex = 3
  End If
Next i