Toppert jij wist meteen waar het voor was he ![thumbsup :thumbsup:](https://www.oplossing.be/Smileys/fire/thumbsup.gif)
Tja Tonnie,
ik heb bijna je hele werkboek hier staan...
![Grijns ;D](https://www.oplossing.be/Smileys/fire/grin.gif)
Probeer deze eens in Module 4, Sub leegmaken_werkomschrijving_lijst():
vervang de code:
Sheets("Gegevens").CheckBox1 = False
......
enzovoort tot
......
Sheets("Gegevens").OLEObjects("CheckBox25").Object.caption = "nee"
door
For a = 1 To 25
Sheets("Gegevens").Controls("Checkbox" & a).Value = False
Sheets("Gegevens").OLEObjects("CheckBox" & a).Object.caption = "nee"
Next
De rest van de code moet je natuurlijk laten staan
![Knipoog ;)](https://www.oplossing.be/Smileys/fire/wink.gif)
Je kan op dezelfde manier een
For/Next loop in verschillende andere macro's gebruiken.
![Smiley :)](https://www.oplossing.be/Smileys/fire/smiley.gif)
SoftAid
![](https://www.oplossing.be/images/dogrun.gif)