in VBA, Zwei Werte kombinieren

[Tom2020]

Hallo Zusammen,

ich hätte gerne gewusst, ob jemand hier helfen kann:
 
Tabelle (001), Spalte I, verfügt über 4 Modi

Passed
Failed
Verifying
-

Verifying ist leider hinzugekommen!

nun:
wenn in der Spalte I, jeweilige Zelle über „Failed“ ORDER „Verifying“ verfügt, werden sie aufgezählt. Kommt es vor, wird die Zelle in Tabelle STA, Rot, wenn nicht dann Grün
 
Ich versuche sie so zu kombinieren, kommt es zur Fehlermeldung
 
If (StrComp(Cells(i, PosState).Value, "Failed")) OR (StrComp(Cells(i, PosState).Value, "Verifying")) = 0 Then
....

....
...


danke für den Tipp

Code:

    Set NextRow = Sheets("Statistics").Range("M3")
    Sheets(TableName).Activate
    Dim counter As Integer
    counter = 0
    Dim i As Integer
    For i = 14 To NumRow ' bis Spalte N
   
    If (StrComp(Cells(i, PosState).Value, "Failed")) OR (StrComp(Cells(i, PosState).Value, "Verifying")) = 0 Then

    counter = counter + 1
    End If
    Next i
   
    If counter > 0 Then
        NextRow.Value = counter
        NextRow.Interior.ColorIndex = 3 'red
    Else
        NextRow.Value = counter
        NextRow.Interior.ColorIndex = 4 'green
    End If

[{Boris}]

Hi,

wozu StrComp?
Check nur auf die Zellwerte:

If Cells(...).Value = "Failed" Or Cells(...).Value = "Verifiying" Then

[Mase]

IF Anweisung_1 = 0 OR Anweisung_2 = 0 THEN


Vorschlag:
Löse es via Autofilter.

[Tom2020]

@Boris
Soweit geht ok, Problem macht die Hintergrund-Farbe von der betroffenen Zelle, keine korrekte Farbe
 
@Mase
es ist leider so kompliziert um das anzupassen bzw. mit Autofilter; die Makros sind verknüpft mit anderen Tabellen etc.

[schauan]

Hallöchen,

Problem macht die Hintergrund-Farbe von der betroffenen Zelle, keine korrekte Farbe

Speichere Dir irgendwo das Farbmuster ...

[Tom2020]

danke an Euch alle,

ich setze auf erledigt