Kopiëren keuzerondjes en groepsvakken

[victormeesters]

Goedemorgen helpers,

Ik wil een rapportage maken in Excel met behulp van keuze rondjes.
Hierbij loop ik tegen twee problemen op.

Alle keuze rondjes die bij elkaar horen plaats ik in een Groepsvak.
Dit werkt, maar het is lastig om de groepsvakken er mooi uit te laten zien.
Door regels toe te voegen of te verwijderen, verspringen de buitenste lijsten van de groepsvakken snel.
Is hier een eenvoudigere manier voor die er wel stak uit blijft zien?

Als ik dan een stuk heb gebouwd waar ik tevreden over ben kan ik het eenvoudig kopiëren.
Als ik dit probeer moeten alle absolute verwijzingen worden aangepast.
Relatieve verwijzingen werken ineens net zo als absolute verwijzigen (zie voorbeeld 3 bijlage)

En op een of andere manier blijft regel 30(voorbeeld 2) altijd gekoppeld aan regel 14(voorbeeld1).
Hierdoor zijn er ineens 4 ipv 2 keuzerondjes en krijg je hele gekke situaties.
Ik het groepsvlag en de keuzerondjes bij regel 30 al meerdere keren verwijderd en opnieuw aangemaakt, maar hij blijft aan regel 14 gekoppeld.
Hoe kan dit?

Samenvattend denk ik dat ik een uitdaging met kopiëren heb.
Maar jullie zijn de experts, dus als het iets anders is hoor ik het ook graag

Groet, Victor

Bekijk bijlage Keuzerondjes kopieren.xls

 

[popipipo]

Je groepsvakken overlappen elkaar zodoende kom je in de problemen.
Kleiner maken gaat helaas niet.

De beste oplossing is om de regelhoogte aan te passen.
Zet deze op 25 en ze overlappen elkaar niet meer.

Maak nu één regel netjes en selecteer de 2 keuze vakjes én het groepsvak en kopieer deze 3 naar een nieuwe regel.

Wigi heeft het volgende bestand gemaakt misschien dat je het kunt gebruiken.
http://users.skynet.be/fa436118/wim/xlwdfiles/multiplechoice.xls

 

[victormeesters]

Bedankt willem, voor je reactie!

Mijn VBA is niet zo goed, maar volgens mij verbergt hij de groepsvakken/ maakt ze onzichtbaar.
Weet jij toevallig hoe ik dit ook kan doen in mijn bestand?

Groet, Victor

 

[victormeesters]

Door je hulp ben ik in de goede richting gaan zoeken en heb het inmiddels gevonden.

Private Sub Workbook_Open()
Blad1.GroupBoxes.Visible = False
End Sub

Nogmaals bedankt voor je hulp.