title image


Smiley GRINS, okay, dann SO:


Private Sub Worksheet_SelectionChange(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 90

Target.Interior.ColorIndex = 3

Case 70 To 80

Target.Interior.ColorIndex = 6

Case 60 To 70

Target.Interior.ColorIndex = 5

Case 50 To 60

Target.Interior.ColorIndex = 4

End Select

End If

End Sub







;-)))

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: