Cell Färbung VBA Excel

Ich habe versucht, Code zu schreiben, um alle Zellen in Spalte D zu färben, die nicht im Format ow, ol, od. Allerdings hat mein Code alle Zellen gefärbt, unabhängig vom Zellenwert. Ich könnte deine Hilfe brauchen.Cell Färbung VBA Excel

Data Column D

Sub colour() 

For Z = 1 To ActiveSheet.UsedRange.Rows.Count 
    If Cells(Z, 4) = "OW" And Cells(Z + 1, 4) = "OL" And Cells(Z + 2, 4) = "OA" Then 
    Else 
    Cells(Z, 4).Interior.ColorIndex = 7 
    End If 
Next Z 

End Sub

Quelle

2017-06-07 pati

If Cells(Z, 4) = "OW" And Cells(Z + 1, 4) = "OL" And Cells(Z + 2, 4) = "OA"

Ihr Code überprüft (Getestet habe ich es auch), wenn drei aufeinanderfolgenden Zellen in einer Spalte die Werte "OW" haben, "OL" und "OA". Wenn beispielsweise D1 = "OW", D2 = "OL" und D3 = "OA", dann wird die Zelle D1 nicht gefärbt. In jedem anderen Fall wird es.

Wenn dies nicht das ist, was Sie suchen, dann versuchen Sie, Ihr Ziel zu erarbeiten.

Quelle

2017-06-07 11:01:29 Alluton

Das ist richtig, ich möchte überprüfen, ob D1 = "OW", D2 = "OL" und D3 = "OA" wenn ja, als keine Färbung und wenn nicht als Farbe. Zum Beispiel, wenn D1 = "OW", D2 = "OL" und D3 = "OL". Ich verstehe es wirklich nicht, denn wenn ich das Makro benutze, färbt es jede Zelle ... – pati

D1 = "OW", D2 = "OL" und D3 = "OL". Sie überprüfen das nicht. Ihr Code färbt nur dann nicht, wenn die 3 Zellen OW OL und OA in dieser spezifischen Reihenfolge haben. – Alluton

Cell Färbung VBA Excel

Antwort

Verwandte Themen