Office: Hintergrundfarbe Zelle abhängig von Ober- und Untergrenze

Hallo zusammen,

ich möchte ein Makro schreiben, mit dem ich folgendes erreiche: Ich habe pro Zeile einen Mininmal- und einen Maximalwert. In der dritten Spalte steht ein gemessener Wert. Je nach gemessenem Wert soll die Hintergundfarbe der Zelle gesteuert werden.

1. Ist die Zelle leer -> weißer Hintergrund
2. Gemesser Wert größer als Max bzw kleiner als Min --> roter Hintergrund
3. Gemessener Wert innerhalb Min/Max --> grüner Hintergrund

Das ganze soll ohne bedingte Formatierung laufen, da evtl. noch andere Bedingungen hinzukommen und dann die Felder in Excel 2003 nicht ausreichen.

Kann mir jemand weiterhelfen, wie das im Makro aussehen muss.

DANKE.

 

Hallo!

Ich gehe von diesem Aufbau aus:
min-Werte in Spalte A
max-Werte in Spalte B
Messwerte in Spalte C

Code:

Sub xy()
Dim Z As Range
For Each Z In Range("C2:C4")
If Z < Z.Offset(0, -2) Or Z > Z.Offset(0, -1) Then Z.Interior.ColorIndex = 3
If Z >= Z.Offset(0, -2) And Z <= Z.Offset(0, -1) Then Z.Interior.ColorIndex = 4
If IsEmpty(Z) Then Z.Interior.ColorIndex = xlNone
Next Z
End Sub