Validatie cellen

[wacco]

Hallo,

Ik heb een aantal cellen met gegevensvalidatie.
Nu wil ik d.m.v. VBA, de inhoud van deze cellen wissen (alleen de inhoud van de cel, niet de gegevensvalidatie)
Bij cellen zonder gegevensvalidatie, lukt dit met onderstaande code, maar met cellen met gegevensvalidatie lukt dit echter niet.

If [B10] = "" Then
For Each cl In Range("C10,E10")
If cl <> "" Then cl.ClearContents
Next
End If

De cellen C10 en E10 bevatten data welke d.m.v. van een gegevensvalidatie wordt verkregen.

Waarom lukt het met cellen met "normale" inhoud wel, maar bij deze cellen niet??
Ik hoop dat iemand mij uit de brand kan helpen.

M.v.g

 

[Cobbe]

En waarom zou dat niet werken. Dit werkt perfect en dus zal er iets anders aan de hand zijn.
Anders vb-tje posten.

 

[wacco]

@Cobbe,

Sorry,....werkt inderdaad, maar ik had een stomme basis fout gemaakt.
Cellen bleken samengevoegd te zijn, en zoals zo vaak dan werkt het vaak niet.
Cellen niet meer samengevoegd, en ,...het werkt.

M.v.g