title image


Smiley Re: mehr als 3 bedingte Formatierungen...
Hallo Marion,



versuch's mal so:



Private Sub Worksheet_Change(ByVal Target As Range)

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

With Target

If .Value > 100 Then

.Interior.ColorIndex = 3

ElseIf .Value > 70 Then

.Interior.ColorIndex = 6

ElseIf .Value > 60 Then

.Interior.ColorIndex = 5

End If

End With

End If

End Sub



Viele Grüße und ebenfalls ein schönes WE, xl'chen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: