bedingte Formatierung mit mehr als 3 Farben
13.09.2006 11:30:31
Benben
ich habe ein Makro wie "Bedingte Formatierung mit mehr als drei Farben" geschrieben. Wie z,B. wenn in "A1"=1 und "B1"=A then "C1" rot werden, wenn in "A1"=1 und "B1"=B then "C1" gelb werden,usw. Im "A" kann man "A" bis "F" eingeben, und in "B" kann man "1" bis "4" eingeben, dann werden "C" verschiedene Farbe werden.
Aber wieso meine Programm kann nicht richtig funktionieren? Wenn "A" und "B" eingegebn, verändert "C" gar nicht.
Könnten Sie mir helfen?
--------------------------------------------------------------------------
Private Sub RisikoAnalyse()
Dim Eintretenswahr As Range
Dim Gefahr As Range
Dim Bereich1 As Range
Set Bereich1 = Range("L156:L221")
Set Bereich2 = Range("K156:K221")
For Each Eintretenswahr In Bereich1
If Not Intersect(Eintretenswahr, Bereich1) Is Nothing Then
Select Case Eintretenswahr.Value
Case "A" 'Häufig
For Each Gefahr In Bereich2
If Not Intersect(Gefahr, Bereich2) Is Nothing Then
Select Case Gefahr.Value
Case "1"
ActiveCell.Offset(0, 1).Interior.ColorIndex = 3
Case "2"
ActiveCell.Offset(0, 1).Interior.ColorIndex = 3
End Select
End If
Next Gefahr
End Select
End If
Next Eintretenswahr
Set Bereich1 = Nothing
Set Bereich2 = Nothing
End Sub
-----------------------------------------------------------------------------
Dank sehr!
Benben
Anzeige