Tabel leegmaken met knop

[Hastings]

Beste Allemaal,

Ik heb met Visual Basic een script geschreven om op stage eenvoudig te kunnen turven en achterhalen waar problemen voordoen

(Quick root source finding) (snel problemen herleiden naar de bron.)

(mijn bestand is 163kb ipv 100kb, dus ik heb hem bijgevoegd doormiddel van onderstaande link) (openbare dropbox file)
https://dl.dropbox.com/u/71646410/Standaard voor de computer pressco.xlsm

Echter.. Soms is de steekproef 20 items, soms 200 items. Het verschilt dus nogal wanneer een tabel moet worden gewist.

Mijn Vraag is dus:
In het tabblad ''Klikbestand'' heb ik in cel A1 een knop toegevoegd om te wissen.
Als hierop wordt geklikt wil ik dat de waarden in de gele kolommen ( V T/m AG) worden teruggezet naar 0.
Niet de tekst, maar enkel de ''turfwaarden'' ( V4: AG15), (V27: AG28) en (V37;AG37)
(De groene cellen in de gele kolommen)

Weet iemand of en hoe ik dit voor elkaar kan krijgen? (Eventueel als het écht niet anders kan, mogen de hele gele kollommen naar 0/leeg gereset worden. Deze waarden worden namelijk in het tabblad PRintversie met omschrijving weergegeven in een correcte nette tabel met werkinstructie.

Alvast heel erg bedankt voor jullie hulp!

Groetjes,

Rick

 

[Warme bakkertje]

Sub wissen()
    With Sheets("KLIKBESTAND")
        Union(.Range("V4:AG15"), .Range("V27:AG28"), .Range("V37:AG37")).ClearContents
    End With
End Sub

 

[Hastings]

Super, hij werkt!
Héééél erg bedankt!

Met vriendelijke groet,

Rick van Haaren