bij clear contents formules laten staan

[TimWery]

Beste,

ik heb onderstaande macro om gegevens in cellen te verwijderen maar hij verwijdert ook de formule's en dat wil ik niet.
Formules moeten er blijven in staan.

hoe kan ik dit oplossen?

bedankt

Private Sub Workbook_Open()

Application.ScreenUpdating = False

With Sheet1
.Unprotect
.Range("A2:A400,C2:C400,E2:E400").ClearContents
.Protect

End With
End Sub

 

[VenA]

Probeer het zo eens

.Range("A2:A400,C2:C400,E2:E400").SpecialCells(2).ClearContents

 

[TimWery]

dit lukt niet, ik krijg een foutmelding

Er zijn geen cellen gevonden.

 

[VenA]

Dan valt er niets leeg te maken. Of je hebt alleen maar formules of alleen maar lege cellen in het bereik staan.

On Error Resume Next
.Range("A2:A400,C2:C400,E2:E400").SpecialCells(2).ClearContents

 

[HSV]

Dan moet je de gegevens verwijderen die door de formules worden opgehaald.

 

[TimWery]

met de tekst On error resume next, werkt het wel

bedankt!