Hintergrundfarbe bei Eintrag in Zelle von Zeile übernehmen - sonst Zelle rot (vba)

[S7eben]

Hallo zusammen, ?‍♂️

ich benötige Hilfe bei folgender Datei.

Ich habe eine Tabelle mit Spalten von B bis T.
Wenn in einer Zelle von C ein Kriterium wie Apfel, Banane, Birne usw. eingegeben wird. Dann färbt sich die ganze Zeile nach den Farbvorgaben aus dem Tabellenblatt "Farben".  Wenn die Zelle in der Spalte "I" keinen Eintrag hat, dann ist die Hintergrundfarbe "Rot". Wird dort ein kleines "x" eingetragen dann färbt sich die Zelle in "I" und übernimmt die Hintergunrdfarbe von der ganzen Zeile anhand der Vorgabe aus dem Tabellenblatt "Farben", welches durch das Kriterium in "C" bestimmt wird.

Jetzt möchte ich aber gerne auch das dies in "K" so geschieht. Wenn dort also kein Eintrag vorhanden ist, dann soll sie "Rot" sein. Dies funktioniert auch schon allerdings wenn dort ein "x" eingetragen wird, dann übernimmt es leider noch nicht die Hintergrundfarbe von der Zeile. 
Ich hoffe ich konnte das Problem gut schildern. In der Beispieldatei wird der Sachverhalt gut dargestellt.

Ich würde mich über Hilfe sehr freuen. ?

[maninweb]

Hallo,

der Teil If .Column = 11 Then im Code von sbColor wird nie erreicht, weil Du diesen im If-Teil von Spalte 9 drin hast.
Von daher, füge ein End If vor If .Column = 11 ein und nehme ein End If unten weg.

Eine bessere Übersicht über die If's und End If's würdest Du errreichen, wenn Du die Code-Teile sauber einrücken würdest.

Gruß

[S7eben]

Hallo maninweb,

super,.. es hat geklappt.
Die Einrückung habe ich gemacht und es auch noch mit einer dritten Spalte zum Testen erweitert,.. und es klappt auch.
Danke Dir für Deine Hilfe. Freue mich sehr.

Gruß