|
Hallo zusammen,
ich befasse mich seit kurzem mit VBA - habe mir das Buch von Herrn Held gekauft.
So nun zu meiner Frage:
Es gibt einen Code der den Wert einer Zelle überwacht, je nach Höhe des Wertes soll sich die Hintergrundfarbe bzw. der Text daneben ändern.
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
Vorgegangen bin ich so: VBA Editor geöffnet -->Doppelklick auf Tabelle Verzweigungen --> Code im Editor geschrieben.
So wie ich es verstanden habe, sollte es automatisch rot werden wenn der Wert gleich 16 oder höher ist. Jedoch geschieht dies
erst wenn ich den erzeugten Commandbutton klicke.
Füge ich es an der falschen Stelle ein?
Gruß Michael
|