2016-05-03 10 views

Antwort

2

Hier ist ein weiterer Ansatz (die etwas schneller sein könnte):

Worksheets("SINGLE REPORT").Range(Cells(34, 3), Cells(64,22)).SpecialCells(xlCellTypeBlanks).FormatConditions.Delete 
+0

Sie haben mich dazu geschlagen. Das ist der richtige Weg. – L42

2

Der Fehler ist in Typ: = xlCellTypeBlanks. Versuchen Sie es erneut ohne.

Erster Ansatz blank Problem

For Each cell In Range(Cells(34, 3), Cells(64, 22)) 

If IsEmpty(cell) Then 
cell.FormatConditions.Delete 
End If 

Next 
+0

wirkt wie ein Zauber, danke !!! – Pythonist

Verwandte Themen