Search in row for cell with no color

Hi,

Im trying to create a code that if in row D a cell has no color, it turns the value in ""
if tryed a few ways but none worked
here are some i tryed.

Sub Methode1()
 Sheets("Begroting").Range ("D4:D650")
 If .Interior.ColorIndex = 0 Then
 .Cells = ""
 End If
End Sub

Sub Methode2()
Dim i As Long
With ActiveWorkbook.Sheets(1)
    For i = 100000 To 1 Step -1
        If .Cells(i, "D") = ".Interior.ColorIndex = 0" Then
            .Cells(i, "D").Value = ""
        End If
    Next i
End With
End Sub

No fill has a colorindex of -4142 not zero

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

Perhaps...

Sub Non_ColorCellsClear()
With Sheets("Begroting").Range("D4:D650")
    .AutoFilter 1, RGB(255, 199, 206), Operator:=xlFilterNoFill
    .SpecialCells(12).Value = ""
    .AutoFilter
End With
End Sub