zellformatierung mit makro
08.08.2005 08:32:55
andi
habe folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo err_handler
'Werte berechnen und an Variablen übergeben
wert = Cells(6, 4).Value
minTol = wert + Cells(8, Target.Column).Value
maxTol = wert + Cells(7, Target.Column).Value
orange_max = Cells(7, Target.Column).Value * 20 / 100 * -1
orange_min = Cells(8, Target.Column).Value * 20 / 100 * -1
m = maxTol - orange_max
n = minTol + orange_min
Select Case Target.Value
Case Is > maxTol
Target.Font.ColorIndex = 3 'rot
Case Is < minTol
Target.Font.ColorIndex = 3
Case Is < maxTol, Is > m
Target.Font.ColorIndex = 46 'orange
Case Is > minTol, Is < n
Target.Font.ColorIndex = 46
Case Else
Target.Font.ColorIndex = 10 'grün
End Select
err_handler:
'MsgBox "Fehler!"
Exit Sub
End Sub
Er sollte eigentlich 3 Foramtierungen machen. Leider tut er dies nicht. Ausserhalb der max und minToleranz soll er rot färben --> das funktioniert. Dann gibt es einen Bereich der orange sein soll (+- 20% von unterer bzw. obere Toleranz).
Der mittlere Bereich soll grün sein --> läuft nicht!
Wieso geht das nicht?
Gruß Andi