Hallo zusammen,
bestimmt kann mir jemand von Euch weiterhelfen!
Unten ist ein Makro abgebildet, bei dem definiert werden kann wie sich die Zelle im Tabellenblatt bei Eingabe einer bestimmten Zahl färben soll. So kann z. B. definiert werden, dass sich eine Zelle automatisch rot einfärbt (Case 3 Target.Interior.ColorIndex = 3), wenn ein bestimmter Wert (in dem Fall 3) eingegeben wird.
* 1 - Schwarz
* 2 - Weiss
* 3 - Rot
* 4 - Grün
* 5 - Blau
* 6 - Gelb
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case 1
Target.Interior.ColorIndex = 1
Case 2
Target.Interior.ColorIndex = 2
Case 3
Target.Interior.ColorIndex = 3
Case 4
Target.Interior.ColorIndex = 4
Case 5
Target.Interior.ColorIndex = 5
Case 6
Target.Interior.ColorIndex = 6
Case Else
Target.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub
Ich benötige das Makro in folgender Form:
„kleiner/gleich“ 5% = grün (4)
„größer/gleich“ -5% = grün (4)
„kleiner/gleich“ 8% = gelb (6)
„größer/gleich“ -8% = gelb (6)
„größer als“ 8% = rot (3)
„kleiner als“ -8% = rot (3)
... und das ganze für die Zellen "A1:A20" und "D1:D20"
Vielen Dank für Eure Antworten
Gruß
Sascha
|