Inhoud van cellen leegmaken

[Beegee59]

Ik zou graag met een code ineens alle cellen met inhoud leeg willen maken, maar de eventuele functies laten bestaan.

Iemand een idee?

 

[popipipo]

Met een excel voorbeeldbestandje wordt het iets duidelijker wat er wel en niet leeg gemaakt moet worden.

 

[AHulpje]

Sub ClearValues()
    For Each c In ActiveSheet.UsedRange
        If Not c.HasFormula Then c.Clear
    Next
End Sub

Of "Start", "Zoeken en Selecteren", "Constanten", Delete.

 

[Beegee59]

Hierbij een voorbeeld bestandje.
Alle getallen mogen eruit, alleen de functies zoals gezegd, moeten eruit.

 

[peter59]

Bij deze.
Met de code van AHulpje

 

[Beegee59]

Bij deze.
Met de code van AHulpje

Ik heb het bestandje geopend, maar het is nu mooi leeg, maar de functies die erin stonden zijn weg.
Als ik namelijk een bedrag invul, bijvoorbeeld 8 euro, dan zou de cel groen moeten worden.
Als mensen te laat zijn met betalen, dan zou de cel met datum rood worden en dat gebeurd nu helemaal niet meer.
Het is en blijft wit.

 

[Senso]

De getallen moeten weg en niet de datums en formules.

 

[popipipo]

Waarom niet handmatig het bereik A2:X32 deleten?
Het is gewoon een aansluitend bereik.

Bovendien zou ik je voorwaardelijke opmaak eens goed bekijken, dit kan volgens mij wel wat opgeschoond worden.

 

[popipipo]

Of maak er dit van:
c.ClearContents

 

[AHulpje]

De formules staan er nog netjes in, de voorwaardelijke opmaak is wel verdwenen.
Met de hand:
"Start", "Zoeken en selecteren", "Selecteren speciaal", "Constanten", "OK", Delete
VBA:

ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 23).ClearContents

 

[Beegee59]

Ik wil jullie bedanken voor alle reacties en wat "popipipo" zegt: ik doe het gewoon met de hand.
Als het goed is hoeft dit maar 1x per jaar te gebeuren.

Nogmaals bedankt

 

[emields]

alle cellen leeg maar formules behouden.