clear contents

[mtb]

goedemiddag,

In een bereik A1:SAD110 staan allemaal formules,, nu wil ik graag alle formules verwijderen waarbij de uitkomst van de formule geen 0 is, is dit middels een programmacode mogelijke, anders moet ik alle cellen handmatig leegmaken.

alvast bedankt voor het meedenken

 

[Joske2000]

H Michel,

Onderstaande code doet wat je verlangt !

Sub VERWIJDERLEEG()
    Dim q As Range
    For Each q In Range("a1:ad110")
        If q <> 0 Then
            q.ClearContents
        End If
    Next
End Sub

Joske

 

[mtb]

Joske,

geweldig, dank je wel