Hallo,
ich würde gerne mit Select case prüfen ob Zellen voll und rot sind. Leider gibt es nach dem "And" Schwierigkeiten. Ich weiß aber nicht wie ich auf einem anderen Weg prüfen kann ob Zellen gefüllt und rot sind. Select case würde ich gerne verwenden.
For i = 6 To ez
For j = 4 To 8
Select Case ActiveSheet.Cells(i, j)
'alle leeren Zellen rotfaerben
Case Is = ""
ActiveSheet.Cells(i, j).Interior.ColorIndex = 3
'alle vollen roten Zellen weißfaerben
Case Is <> "" And Interior.ColorIndex = 3
ActiveSheet.Cells(i, j).Interior.ColorIndex = 0
End Select
Next j
Next i
Vielen Dank für die Hilfe im Voraus!!
Gruß, Jörg
|