Dim
bereich, zelle
As
Range
Set
bereich = Range(
"A1:A6"
)
Dim
Sollwert
As
Double
Dim
TolleranzOben
As
Double
Dim
TolleranzUnten
As
Double
For
Each
zelle
In
bereich
If
Range(
"G2"
) =
"außen"
Then
If
zelle =
""
Then
zelle.Interior.ColorIndex = 15:
GoTo
weiter
Sollwert = Range(
"E2"
)
TolleranzOben = Range(
"E3"
)
TolleranzUnten = Range(
"E4"
)
zelle.Interior.ColorIndex = 38
If
zelle.Text <= (Sollwert + TolleranzOben)
And
zelle.Text >= (Sollwert + TolleranzUnten)
Then
zelle.Interior.ColorIndex = 10
If
zelle.Text > (Sollwert + TolleranzOben)
Then
zelle.Interior.ColorIndex = 36
ElseIf
Range(
"G2"
) =
"innen"
Then
If
zelle =
""
Then
zelle.Interior.ColorIndex = 15:
GoTo
weiter
Sollwert = Range(
"E2"
)
TolleranzOben = Range(
"E3"
)
TolleranzUnten = Range(
"E4"
)
zelle.Interior.ColorIndex = 38
If
zelle.Text <= (Sollwert + TolleranzOben)
And
zelle.Text >= (Sollwert + TolleranzUnten)
Then
zelle.Interior.ColorIndex = 10
If
zelle.Text < (Sollwert + TolleranzUnten)
Then
zelle.Interior.ColorIndex = 36
End
If
weiter:
Next
End
Sub