mehr als 3 Bedingte Formatierungen
02.10.2007 07:44:00
Enrico
Hat bis gestern auch noch funktioniert aber heute bleibe
ich bei Case Is > 999 hängen - was kann da passiert sein ?
Option Explicit
Private Sub Worksheet_Calculate()
Sheets("Daten_Berechnung").Select
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("BE8:BL250")
For Each RaZelle In RaBereich
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
Select Case RaZelle.Value
Case Is > 999
' grau
RaZelle.Interior.ColorIndex = 0
Case Is > 100
' rot
RaZelle.Interior.ColorIndex = 3
Case "41"
' blau
RaZelle.Interior.ColorIndex = 5
Case Else
' Keine
RaZelle.Interior.ColorIndex = xlNone
End Select
End If
Next RaZelle
Set RaBereich = Nothing
End Sub
Anzeige