Office: Suche Hilfe bei Makroergänzung wenn Zellfarbe Colorindex 1, dann

Hallo zusammen,

ich benötige mal wieder unterstützung:

Ich habe hier die Möglichkeit, dass wir Handeingaben machen, die dann nicht vom Makro überschrieben werden.
Folgendes Makro ist vorhanden, welches Problemlos funktioniert.


If Not dbRec.EOF Then ' Wenn Satz gefunden
If UCase(Cells(activeRow, activeCol).Value) = "NV" Or UCase(Cells(activeRow, activeCol).Value) = "CE1" Or UCase(Cells(activeRow, activeCol).Value) = "CE2" Or UCase(Cells(activeRow, activeCol).Value) = "CE3" Or UCase(Cells(activeRow, activeCol).Value) = "CE4" Or UCase(Cells(activeRow, activeCol).Value) = "CE5" Then

'Do Nothing
Else


Hier soll noch folgende Ergänzung eingebaut werden.
Ist eine Zelle schwaz, soll das makro auf dieser zelle nicht angewannt werden.

Ich habe es mal so probiert, leider funktioniert das so nicht. Kann mir da jemand helfen, danke!

If Not dbRec.EOF Then ' Wenn Satz gefunden
If UCase(Cells(activeRow, activeCol).Value) = "NV" Or UCase(Cells(activeRow, activeCol).Value) = "CE1" Or UCase(Cells(activeRow, activeCol).Value) = "CE2" Or UCase(Cells(activeRow, activeCol).Value) = "CE3" Or UCase(Cells(activeRow, activeCol).Value) = "CE4" Or UCase(Cells(activeRow, activeCol).Value) = "CE5" Or UCase(Cells(Interior.ColorIndex).Value) = 1

'Do Nothing
Else

 

Hallo!

ungetestet:

... Or Cells(activeRow, activeCol).Interior.ColorIndex = 1

 

Danke das wars, vielen lieben DAnk!