Von |
Torsten |
eMail |
|
Am |
10. November 2009 um 17:01:43 |
Frage |
Hallo,
ich versuche eine case - anweisung zu schreiben. weiß aber nicht so richtig, wie das geht.
Ich möchte in Abhängigkeit von 4 Bedingungen eine Zelle unterschiedlich formatieren.
und hab das mal so versucht: geht natürlich nicht, weil siehe oben ;-)
Sub Bedingte_Formatierung
Dim gleich As String Dim besser As String Dim schlechter As String Dim vielschlechter As String variable = besser Select Case variable Case "gleich" Worksheets("Chefübersicht").Range("abw_kum_vj_vh").Interior.ColorIndex = 15 Case "besser" Worksheets("Chefübersicht").Range("abw_kum_vj_vh").Interior.ColorIndex = 17 Case "schlechter" Worksheets("Chefübersicht").Range("abw_kum_vj_vh").Interior.ColorIndex = 19 Case "vielschlechter" Worksheets("Chefübersicht").Range("abw_kum_vj_vh").Interior.ColorIndex = 21 End Select
End Sub
Kann mir bitte jemand helfen?
Danke
Torsten |
|