Hallo zusammen,
Ich habe mir mit nachlesen in den Foren ein Makro gebastelt, das in einem Blatt (Aufgabenliste) abfragt ob Zellen in einer Spalte ROT oder GRÜN sind.
Bei ROT kommt eine Meldung bei GRÜN soll eine bestimmte Zelle im Blatt (Overview) auch GRÜN werden.
das funktioniert auch wenn ich die obere If Abfrage rausdokumentiere, aber auch nur dann oder wenn ich ein Else IF einbaue.
Dann aber kommt die Meldung und dananch wird die Zellein Overview trotzdem GRÜN auch wenn eine noch ROT ist in der Aufgabenliste.
Was habe ich hier nicht bedacht?
Sub ZelleRot()
Dim rBereich As Range
Dim rZelle As Range
With ThisWorkbook.Worksheets("Overview")
Set rBereich = .Range("E9:E50" & .Cells(Rows.Count, 5).End(xlUp).Row)
For Each rZelle In rBereich
If rZelle.Interior.ColorIndex = 3 Then
MsgBox "Mindestens eine Aufgabe ist noch nicht erfüllt"
If rZelle.Interior.ColorIndex = 44 Then 'Else und Elseif probiert dann wird die Zelle nach der Warnung das eine Rot ist trotzdem grün
Tabelle15.Cells(9, 5).Interior.ColorIndex = 44
End If
End If
Next rZelle
End With
Exit Sub
Set rBereich = Nothing
End Sub
Verschneite Grüße
Michael
|