Checkbox op een werkblad programmeren

[reneemettrie]

Ik heb wat ervaring met UserForms, maar niet met het programmeren van checkboxes ed op een werkblad.
Kun je via VBA inspelen op de cel waarin zo een checkbox zich bevindt? Ik veronderstel dat je beter met een ActiveX dan met een Checkbox uit de formulierbesturingselementen werkt?

 

[HSV]

Met:....

msgbox checkbox1.topleftcell.address

....gaat dat lukken.

 

[reneemettrie]

OK, bedankt! Ga het straks proberen

 

[reneemettrie]

Met:....

msgbox checkbox1.topleftcell.address

....gaat dat lukken.

Ben er toch nog niet uit.
In een kolom staan verschillende checkboxes. Als die worden aangeklikt moet in cel ernaast de huidige datum komen.
Voor eentje geen probleem: Range(Checkbox1.TopLeftCell.Address).Offset(0,1) = Date

Maar hoe kan je dat nu op een elegante manier voor een hele kolom doen?

 

[HSV]

Zie...http://www.helpmij.nl/forum/showthread.php/870347-macro-code-omzetten-in-loop
Even omzetten naar checkboxes.

 

[reneemettrie]

Zie...http://www.helpmij.nl/forum/showthread.php/870347-macro-code-omzetten-in-loop
Even omzetten naar checkboxes.

Heb zo een gevoel dat je het dan moet doen via een klassemodule?
Ik ken daar niets van, als ik veel tijd heb zal ik dat eens bekijken.
In de andere antwoorden zie ik weinig heil, al kan ik me vergissen.

 

[HSV]

Ik wil best de code in jouw bestandje plaatsen, maar ik bouw geen hele bestand na (dan is het net weer iets anders, en dan blijven we bezig).
Plaats het bestand maar eens waar het in moet.

 

[reneemettrie]

QUOTE=HSV;5596523]Ik wil best de code in jouw bestandje plaatsen, maar ik bouw geen hele bestand na (dan is het net weer iets anders, en dan blijven we bezig).
Plaats het bestand maar eens waar het in moet.[/QUOTE]

Dat zou ik fijn vinden, voor mij is het puur uit interesse, iemand anders legde me dit probleem voor.
Als het met klassemodules is: daarmee heb ik dus nog nooit gewerkt, heb wel een VBA boek van John Walkenbach, denk dat ik daar wel wat uitleg zal vinden.

Bekijk bijlage Checkbox.xlsm[

Alvast bedankt!

 

[HSV]

Bij deze het bestandje retour.
Maak je nieuwe checkboxen aan?, even de sub 'auto_open()' aanroepen.

 

[reneemettrie]

Bij deze het bestandje retour.
Maak je nieuwe checkboxen aan?, even de sub 'auto_open()' aanroepen.

Heel erg bedankt, in grote lijnen snap ik het, ga het in het WE eens beter bestuderen.
Als ik het goed begrijp definieer je in die klassemodule een event?
En kan je de Autpen sub ook schrijven in het Open Event van de workbook?

 

[HSV]

En kan je de Autpen sub ook schrijven in het Open Event van de workbook?

Dat klopt.

 

[reneemettrie]

Nogmaals bedankt, eeral bijgeleerd!

 

[HSV]

Graag gedaan,

De 'sub auto_open()' wordt ook automatisch aangeroepen als je het bestand opent!
Het is even voor de duidelijkheid.

 

[reneemettrie]

Graag gedaan,

De 'sub auto_open()' wordt ook automatisch aangeroepen als je het bestand opent!
Het is even voor de duidelijkheid.

Ja, dat weet ik, stamt nog uit oudere Excelversies