Hallo Jeremy,
ich habe die Datei jetzt nicht runtergeladen. Die Änderung hätte ich auch nicht als kompliziert angesehen.
Beachte den Kommentar.
Option Explicit ' Variablendefinition erforderlich
Private Sub Worksheet_Change(ByVal Target As Range)
'**************************************************
'* H. Ziplies *
'* 17.09.09 *
'* erstellt von HajoZiplie *
'*
http://Hajo-Excel.de/ *
'**************************************************
' Vorgabe
' 1. 0 %
' 2. 1-25 %
' 3. 26-50 %
' 4. 51-75 %
' 5. 76-99 %
' 6. 100 %
' Bereicch>0 und <1; >25 <26; >50<51; >75 <76; >99<100 werden nicht formatiert
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("D15:D65536")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
For Each RaZelle In RaBereich
With RaZelle
Select Case .Value
Case 0
.Interior.ColorIndex = 1
Case 0.01 To 0.25
.Interior.ColorIndex = 6
Case 0.26 To 0.5
.Interior.ColorIndex = 3
Case 0.51 To 0.75
.Interior.ColorIndex = 4
Case 0.76 To 0.99
.Interior.ColorIndex = 5
Case 1
.Interior.ColorIndex = xlNone
End Select
End With
Next RaZelle
End If
Set RaBereich = Nothing
End Sub
Gruß Hajo