title image


Smiley Noch bischen eleganter


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

For Each c In Range("A1:C5")

Select Case c

Case Is > 100

c.Interior.ColorIndex = 2

Case 90 To 100

c.Interior.ColorIndex = 2

Case 80 To 89

c.Interior.ColorIndex = 3

Case 70 To 79

c.Interior.ColorIndex = 6

Case 60 To 69

c.Interior.ColorIndex = 5

Case 50 To 59

c.Interior.ColorIndex = 4

End Select

Next c

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: