Toppert jij wist meteen waar het voor was he
Tja Tonnie,
ik heb bijna je hele werkboek hier staan...
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
Je kan op dezelfde manier een
For/Next loop in verschillende andere macro's gebruiken.
SoftAid