title image


Smiley SO geht's auch...


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

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

If c.Value > 100 Then

c.Interior.ColorIndex = 2

End If

If c.Value 90 Then

c.Interior.ColorIndex = 3

End If

If c.Value 80 Then

c.Interior.ColorIndex = 6

End If

If c.Value 70 Then

c.Interior.ColorIndex = 5

End If

If c.Value 60 Then

c.Interior.ColorIndex = 4

End If

Next c

End Sub







Gruß



Helmut

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: