cellen leeg maken behalve als er een formule in staat

[dirktimm]

Hallo allemaal,

In een groot bereik van A5:NZ700 staan ongeveer 250 kleine en grote bereiken. Deze bereiken worden geteld met tientallen formules. De inhoud/waarden moeten soms leeg gemaakt worden. Ik kan natuurlijk 250 x een bereik een naam geven en vervolgens gaan wissen. Bv. Range("Bereik1").ClearContents enz enz

Maar ik zou liever een code hebben met "alle cellen wissen behalve als er een formule in staat".

Ik kan het niet zo gauw vinden, dus maar even een vraag. Wie helpt mij even.

groet

Dirk

 

[snb]

cells.specialcells(2)=""

 

[dirktimm]

cellen leeg maken

Hallo snb,

Dank je wel. Ik had inmiddels dit gemaakt en werkt ook: Range("I3:NZ750").SpecialCells(2, 1).ClearContents

Mag dat ook?

groet

Dirk

p.s. ik denk dat als het bestand leeg is, er eerst maar eens een sjabloon van te maken. Is leeg maken niet meer aan de orde