Zeilen einfärben mit mehreren Bedingungen
22.10.2008 12:03:56
donald
ich bräuchte eure Hilfe. Ich möchte folgendes erreichen:
wenn in spalte B "Ja"/"Nein" reingeschrieben wird, soll Excel die Zeile entsprechend einfärben (Grün/gelb). Das ist an sich noch gar nicht das Problem. In Spalte C wird ebenfalls eine Ja/Nein-Abfrage erwartet, so dass es wiederum entsprechend der neuen Aussage die Zeilen neu einfärben soll (grün/orange).
Die bedingte Formatierung packt das nicht, die weiß dann gar nicht mehr, wie was wo.
Ich hab da einen Code gefunden:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Dim rngZelle As Range
Set Bereich = Range("B11:B100")
For Each rngZelle In Intersect(Bereich, Target)
Select Case rngZelle
Case "Nein"
rngZelle.EntireRow.Interior.Color = RGB(255, 255, 0) 'gelb
Case Ja
rngZelle.EntireRow.Interior.Color = RGB(102, 255, 51) 'grelles gruen
Case Else
rngZelle.EntireRow.Interior.ColorIndex = xlNone
End Select
Next
End Sub
Kann mir jemand sagen, wie ich ihn so erweitern kann, dass auch die Spalte C beachtet wird?
Bitte für Dummies.
Grüße