automatisch groepnaam aanpassen van activex keuzerondje?

[promoboy]

Ik ben bezig een scorebord te maken voor het artistiek biljart en heb daarbij een (Master) wedstrijdblad gemaakt met 400 keuzerondjes.
Per 4 rondjes zitten ze in een groep.

Mijn probleem is dat wanneer ik het wedstrijdblad kopieer de groepsnamen hetzelfde blijven en zo de keuzerondjes niet goed kan laten functioneren.

volgende code gebruik ik om wedstrijdbladen aan te maken.

Sub Wedstrijdbladen70figset6()
    Dim MyCell As Range, MyRange As Range
   
    Set MyRange = Sheets("START").Range("H10:H13")

    For Each MyCell In MyRange
        If MyCell.Value = "" Then Exit Sub
        Sheets("Wedstrijdblad70fig").Visible = True
        Sheets("Wedstrijdblad70fig").Copy After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)       'creates a new worksheet
        ActiveSheet.Name = MyCell.Value      ' renames the new worksheet
        ActiveSheet.Tab.ColorIndex = 18
        ActiveSheet.Range("F7").Value = MyCell.Value
        Sheets("Wedstrijdblad70fig").Visible = False
    Next MyCell
End Sub

Hoe kan ik nu code toevoegen om de groepen automatisch aan te passen?

Groep 1 = groepsnaam F1 en bevat (OptionButton1, OptionButton2, OptionButton3, OptionButton4)
Groep 2 = groepsnaam F2 en bevat (OptionButton5, OptionButton6, OptionButton7, OptionButton8)
enz...

bijgevoegd een screenshot van het wedstrijdblad

 

[Niels28]

Beetje lastig zonder voorbeeld.
Misschien kun je hier iets mee.

Sub test2()
For x = 1 To ActiveSheet.Shapes.Count
ActiveSheet.Shapes("F" & x).Name = "wat wil je hier?" & x
Next
End Sub

Niels

 

[promoboy]

Alvast bedankt voor de reactie

Als ik dit bekijk denk ik dat je de code gegeven hebt om radiobuttons te benamen terwijl ik eigenlijk alleen de groepnamen wil aanpassen.

Ik had deze maar weet niet hoe je dit aanroept om te lopen

Sub Wedstrijdbladen70figset6()
    Dim MyCell As Range, MyRange As Range
    
    
    Set MyRange = Sheets("START").Range("H10:H13")
    

    For Each MyCell In MyRange
        If MyCell.Value = "" Then Exit Sub
        Sheets("Wedstrijdblad70fig").Visible = True
        Sheets("Wedstrijdblad70fig").Copy After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) 'creates a new worksheet
        ActiveSheet.Name = MyCell.Value      ' renames the new worksheet
        ActiveSheet.Tab.ColorIndex = 18
        ActiveSheet.Range("F7").Value = MyCell.Value
        Sheets("Wedstrijdblad70fig").Visible = False
-->    Call radiobuttons
        Naam.Value = Naam.Value + 100
    Next MyCell
End Sub

Private Sub radiobuttons()
Dim Naam As Range

Set Naam = Sheets("START").Range("H15")

OptionButton1.GroupName = Naam
OptionButton2.GroupName = Naam
OptionButton3.GroupName = Naam
OptionButton4.GroupName = Naam

OptionButton5.GroupName = Naam + 1
OptionButton6.GroupName = Naam + 1
OptionButton7.GroupName = Naam + 1
OptionButton8.GroupName = Naam + 1

End Sub

 

[Niels28]

Zoals ik al zei een beetje lastig zonder voorbeeldbestand.

Sub radiobuttons()
naam = Sheets("START").Range("H15")
On Error Resume Next
For i = 1 To 400 Step 4
ActiveSheet.OLEObjects("OptionButton" & i).Object.GroupName = naam & i
ActiveSheet.OLEObjects("OptionButton" & i + 1).Object.GroupName = naam & i
ActiveSheet.OLEObjects("OptionButton" & i + 2).Object.GroupName = naam & i
ActiveSheet.OLEObjects("OptionButton" & i + 3).Object.GroupName = naam & i
Next
End Sub

Niels

 

[promoboy]

Zoals ik al zei een beetje lastig zonder voorbeeldbestand.

Sub radiobuttons()
naam = Sheets("START").Range("H15")
On Error Resume Next
For i = 1 To 400 Step 4
ActiveSheet.OLEObjects("OptionButton" & i).Object.GroupName = naam & i
ActiveSheet.OLEObjects("OptionButton" & i + 1).Object.GroupName = naam & i
ActiveSheet.OLEObjects("OptionButton" & i + 2).Object.GroupName = naam & i
ActiveSheet.OLEObjects("OptionButton" & i + 3).Object.GroupName = naam & i
Next
End Sub

Niels

Hey merci Niels, is me gelukt met je code