formule om datum in cellen te vervangen voor een lege cel

[petervdijk]

Bekijk bijlage datum naar lege cel.xlsxhoi,

Ik heb een vraag met betrekking tot het vervangen van gegevens (datums) in een cel voor een lege cel. Nu weet ik dat dat kan met de zoek functie alleen wil ik dit opnemen in een macro, helaas kan ik dat via de zoekfunctie niet opnemen.

iemand een idee?

voorbeeld.

De onderstaande datum komt een aantal maal voor in de sheet, deze wil ik vervangen voor een lege cel.

01-01-2500

 

[Conseclusie]

Sub Verwijder()
For Each Cel In ActiveSheet.Range("A1:Z1000")
    If Cel.Value = DateValue("01-01-2500") Then
        Cel.ClearContents
    End If
Next Cel
End Sub

(als bereik A1:Z1000 genomen)

 

[petervdijk]

bedankt voor de snelle hulp.
greatzz