title image


Smiley ...und hier die übersichtliche KOMBIlösung:


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:C5")) Is Nothing Then

Select Case Target

Case Is > 100

Target.Interior.ColorIndex = 2

Case 90 To 100

Target.Interior.ColorIndex = 2

Case 80 To 89

Target.Interior.ColorIndex = 3

Case 70 To 79

Target.Interior.ColorIndex = 6

Case 60 To 69

Target.Interior.ColorIndex = 5

Case 50 To 59

Target.Interior.ColorIndex = 4

End Select

End If

End Sub







Schönes Wochenende!!!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: