Vinkje opnemen in macro

[pvdb]

Hallo,

Ik heb een excel-bestandje gebouwd, waar twee vink-boxjes onderdeel van uitmaken (van die vierkanmtjes die je aan kan vinken, waarna er in een andere cel "waar "of "onwaar"komt te staan.

Door middel van een macro heb ik een knop gemaakt waarmee alles weer op de beginwaarden moet komen. Nou lukt dat in beginsel helemaal, behalve dat het me niet lukt om dat vinkje ook weer weg te halen uit het boxje.

Kan iemand mij vertellen hoe je dat doet? Vraag is dus hoe je in een macro opneemt dat ook een vinkje wordt verwijderd.

Alvast dank.

 

[Relleboer]

Sub afvinken_checkboxen()
Dim Sh As OLEObject
For Each Sh In ActiveSheet.OLEObjects
If TypeName(Sh.Object) = "CheckBox" Then
Sh.Object.Value = false
End If
Next Sh
End Sub

Deze code vinkt alle checkboxen af

 

[pvdb]

Ok, dank. Dan een iets dommere vraag: dit is een VBE-code. Ik heb VBE nog nooit gebruikt en pruts nogal wat aan in Excel zelf. Hoe gebruik ik deze code in een macro? (oftwel:hoe linken VBE en excel eigenlijk precies aan elkaar. Ik kom wel via "Macro's" in VBE, maar dan weet ik niet meer wat te doen.

Dank.

 

[Warme bakkertje]

Open je Visual Basic Editor (ALT-F11). Indien je projectverkenner niet geopend is doe dit dan via tabblad Beeld-Projectverkenner of via CTRL R
Maak nu een nieuwe module door Invoegen - Module te selecteren
Kopieër de code in deze module. Sla het project op en ga terug naar je sheet.
Nu kan je kiezen om ofwel via ALT-F8 de macro te starten of door een knop op je blad te zetten en de macro daaraan te linken om de vinkjes te verwijderen.

Groetjes

Rudi