Private
Sub
Workbook_SheetCalculate(
ByVal
Sh
As
Object
)
If
Not
TypeOf
Sh
Is
Excel.Worksheet _
Then
Exit
Sub
Dim
rngDaten
As
Excel.Range
Dim
rngZelle
As
Excel.Range
Set
rngDaten = Sh.UsedRange.SpecialCells(xlCellTypeFormulas)
For
Each
rngZelle
In
rngDaten.Cells
Select
Case
rngZelle.Text
Case
"A1"
,
"1"
rngZelle.Interior.ColorIndex = 3
Case
"A2"
,
"2"
rngZelle.Interior.ColorIndex = 38
Case
"A3"
,
"3"
rngZelle.Interior.ColorIndex = 6
Case
"A4"
,
"4"
rngZelle.Interior.ColorIndex = 43
Case
"A5"
,
"5"
rngZelle.Interior.ColorIndex = 4
End
Select
Next
End
Sub