inhoud cellen verwijderen middels makro

[hypocama]

Beste forummers,

Ik zou graag een aantal cellen middels een makro willen ledigen.
In bijgevoegd excel bestand staat wat meer uitleg.

Bedankt alvast voor uw reacties.

 

[edmoor]

Zoiets:

For Each cel In Range("I4:I12")
    If IsDate(cel.Value) Then
        Range("B" & cel.Row & ":I" & cel.Row).ClearContents
    End If
Next cel

 

[hypocama]

Beste Edmoor,

Meer moet dat niet zijn!
Hartelijk dank,
Vgr,
Hypocama.