Sub
VerschachteltesIF()
Sheets(
"Verzweigungen"
).Activate
Range(
"A10"
).
Select
If
ActiveCell.Value < 10
Then
ActiveCell.Offset(0, 1).Value =
"In Ordnung"
ActiveCell.Interior.ColorIndex = xlColorIndexNone
ElseIf
ActiveCell.Value <= 15
Then
ActiveCell.Offset(0, 1).Value =
"langsam kritisch"
ActiveCell.Interior.ColorIndex = xlColorIndexNone
ElseIf
ActiveCell.Value >= 16
Then
ActiveCell.Offset(0, 1).Value =
"zu hoch"
ActiveCell.Interior.ColorIndex = 3
End
If