ich bins nochmal. Ich lass die Daten aus meiner Input Box in ein 2tes Tabellenblatt schreiben. jetzt wird in den zelle L6 mit hilfe der Formel :
"=WENNFEHLER((((K6/100)*I6)/J6);"""")"
der leistungsgrad berechnet. Jetzt hätte ich gern des diese Zelle je nach Ergebnis bediengt formatiert wird.
Ist die %-Zahl über 90= dann soll das Feld Grün
Ist die %-Zahl unter 90= dann soll das Feld Orange
Ist die %-Zahl unter 80= dann soll das Feld Rot
Hier mal mein Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 12 Then ' Wenn Fokus auf Spalte l2 dann ... _
_
Select Case Cells(6, 12) ' ... selektierte Zelle prüfen ob Inhalt ...
Case Is > "90"
Cells(Target.Row, 12).Interior.ColorIndex = 4 ' Hintergrundfarbe grün
Case Is
Gruß
Pascal