Färben von Zellen in excel bei bestimmten Werten

Computer: Software & Programmierung Visual Basic
#1

Hallo!

Eigentlich habe ich gedacht, dass das färben von Zellen bei vorgegebenen Werten ganz einfach, da dass ja eine funktion ist die häufig nützlich seien kann, aber ihrgendwie ist da bei mir der wurm drin, was auch daran liegt, dass ich keine vorgesetzte anzahl an reihen hab (aber auch da sollte es eine simple antwort drauf geben). So, ich habe folgende funktion zur berechnung meiner neuen spaltenwerte:

Function Comm(Sales_V As Variant) As Variant
If Sales_V = 500 And Sales_V = 1000 And Sales_V

#2 
Dim NewTarget As Excel.Range
'
Set NewTarget = Tabelle1.Range(Cells(1, 1), Cells(1, 1))
'
'zurücksetzen der Farben
With NewTarget
 .Font.ColorIndex = xlColorIndexAutomatic
 .Interior.ColorIndex = xlColorIndexNone
End With
'
'Font und Hintergrund einfärben
'ColorIndex siehe Office-Hilfe!!!
With NewTarget
 .Font.ColorIndex = 7
 .Interior.ColorIndex = 6
End With

greets from michL (vienna)