Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
Dim
x
As
Byte
Sheets(
"Auftrag"
).Activate
Range(
"I3:J10"
).
Select
For
x = 3
To
10
If
IsError(Cells(x, 10))
Then
ElseIf
Cells(x, 10).Value =
"K1"
Then
Cells(x, 9).Interior.ColorIndex = 6
ElseIf
Cells(x, 10).Value =
"K2"
Then
Cells(x, 9).Interior.ColorIndex = 4
ElseIf
Cells(x, 10).Value =
"K3"
Then
Cells(x, 9).Interior.ColorIndex = 3
End
If
Next
x
End
Sub