Hallo Leute,

ich möchte in einer Tabelle in einer bestimmten Spalte die Zellen je nach Inhalt einfärben. Das klappt eigentlich auch schon ganz gut. Nur für den Fall nicht, dass in der Zelle der Ausdruck "#NV" steht, welches dort manchmal erscheint, da die Zellen abhängig sind. Obwohl ich auch "Case Else" nutze, erscheint immer wieder ein Fehler.

Kann mir da wohl einer helfen? Ich habe schon vieles ausprobiert, wie z.B. noch

"Case "#NV" oder

"'Case Is <> "Future", "Ongoing", "Due", "Overdue", "Today", "Closed"" oder

"Case Not  "Future", "Ongoing", "Due", "Overdue", "Today", "Closed".

mit jeweils leerer Answeisungsliste. Nichts funktioniert bisher... :-/

Hier mein Code:

LoopCounterStatus = 4

'Einfärben der Zellen in Spalte K und N je nach Statusangabe
For Each Status In Range(Cells(4, 11), Cells(LastEntry, 11))

         Select Case Status
             Case "Future"
                 Status.Interior.ColorIndex = 39
                 Cells(LoopCounterStatus, 14).Interior.ColorIndex = 39
             Case "Ongoing"
                 Status.Interior.ColorIndex = 43
                 Cells(LoopCounterStatus, 14).Interior.ColorIndex = 43
             Case "Due"
                 Status.Interior.ColorIndex = 44
                 Cells(LoopCounterStatus, 14).Interior.ColorIndex = 44
             Case "Overdue"
                 Status.Interior.ColorIndex = 3
                 Cells(LoopCounterStatus, 14).Interior.ColorIndex = 3
             Case "Today"
                 Status.Interior.ColorIndex = 45
                 Cells(LoopCounterStatus, 14).Interior.ColorIndex = 45
             Case "Closed"
                 Status.Interior.ColorIndex = 33
                 Cells(LoopCounterStatus, 14).Interior.ColorIndex = 33
             Case Else
              
         End Select
LoopCounterStatus = LoopCounterStatus + 1

Next

Vielen Dank schonmal.

Beste Grüße

Konstantin