VBA - delete column, if conditional formatting negative throughout the whole column

[rider98]

Hi, I format a table row-wise with the following code:

Code:

Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=MIN($T2:$DZ2)=T2"
Selection.FormatConditions(1).Interior.ColorIndex = 37
and this, if an "x" occurs in a cell:
Code:

If InStr(1, rngCell.Value, "x") > 0 Then
rngCell.Interior.ColorIndex = 27
rngCell.Interior.ColorIndex = xlNone
End If
By this code the cell with the lowest number in a row is coloured with color no. 37 (blue). If there occurs any "x", the cell is coloured with color no. 27 (yellow).

I would like to delete all columns which contain not a single cell coloured blue or yellow by the above mentioned conditional formatting.

Maybe someone can help me on that matter.

Here's an example-file: Dropbox - Test - Kopie.xlsx

In this example, the columns T, W, X, AB, AC, AF, AJ, AL, AN, AP, AR und AS should be deleted by this code.

Thanks in advance for your help.

Best regards,
Mark