Thema: Gruppe von Optionsfeldern kopieren und Makro zuweisen

StandardModule: basMain

Sub KopierenUndZuweisen()
   Dim grp As GroupBox
   Dim opt As OptionButton
   With Worksheets("Tabelle2")
      Worksheets("Tabelle1").GroupBoxes(1).Copy
      .Paste
      Set grp = .GroupBoxes(.GroupBoxes.Count)
      grp.Left = Range("F16").Left
      grp.Top = Range("F16").Top
      Worksheets("Tabelle1").OptionButtons(1).Copy
      Worksheets(2).Paste
      Set opt = .OptionButtons(.OptionButtons.Count)
      With opt
         .Left = grp.Left + 10
         .Top = grp.Top + 10
         .OnAction = "Option_Click"
      End With
      Worksheets("Tabelle1").OptionButtons(2).Copy
      Worksheets(2).Paste
      Set opt = .OptionButtons(.OptionButtons.Count)
      With opt
         .Left = grp.Left + 10
         .Top = grp.Top + 25
         .OnAction = "Option_Click"
      End With
   End With
End Sub

Sub option_click()
   MsgBox "Hallo!"
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und OptionButton