Hi, wie kann ich das hinkriegen:

Hier mein absolut falscher Ansatz, ICh hoffe es verteht einer, was ich will

Sub Finde_blaue_Zelle_und_färbe_sie_neutral ()
       Dim look As Range
      Set look = Range(ActiveSheet.ListObjects("myTable").DataBodyRange).find(What:="Interior.Color = vbblue")
      If Not look Is Nothing Then
      End If
With Selection

.Interior.Color = nofill
End With

End Sub