HERBERS Excel-Forum - die Beispiele

Thema: Gruppe von Optionsfeldern kopieren und Makro zuweisen

Home

Gruppe

Dialog

Problem

Wie kann ich ein Gruppenfeld mit Optionsfeldern in ein zweites Tabellenblatt kopieren und den Optionsfeldern ein Makro zuweisen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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

xlDialogInsertHyperlink.show OptionButton zur Auswahl
Optionbutton zweimal klicken Arbeitmappen über Dialogfeld zusammen fassen
5.0 Dialog Speichern unter Dialog in Word aufrufen inkl. Pfad
Druckerdialog Dateityp im "Speichern unter"-Dialog vorgeben
Makro stoppen, wenn Excel-Dialog? xlDialogOpen anpassen
Wurde Optionbutton in Frame gewählt? Klick in definierten Rangebereich startet Dialog
xlDialogOpen bei Excel 2007 funzt nicht FileDialog inkl. Anklicken von Desktop, Eigene D.
OptionButton Gruppe Grösse Dialogfenster der InputBox
Dialogfeld unterdrücken Dialog "permanently delete sheets" unterbinden
Format-Dialog funktioniert nicht mehr OptionButton GroupName variabel festlegen
Dialog "Verknüpfung aktualisieren" Ordnerdialog und Dateidialog
Ordnerdialog und dateidialog Ordnerdialog und Dateidialog
Filedialog Herber/Beispiele/Dialoge/Checkbox/137601
Ranges mit optionbuttons verbinden? Abhängigkeit zwischen 2 Gruppen mit OptionButtons
Bilder bei Click im Dialogfeld Suchdialog über VBA aufrufen
mit Wert aus Combobox Dialog öffnen Diagramm als Grafik mit Speicherdialog exportieren
Änderung von OptionButtons nur per Passwort Dialogfenster zum kopieren
Textboxinhalt in Abhängigkeit von OptionButtons FileDialog-Objekt unter O2k
Abrage von Dialogfeldargumenten Optionbutton deaktivieren
OptionButtons in Tabelle Optionbutton aktiv bei Wert auf Textbox1
OptionButton Datei Auswählen Dialog (Application.FileDialog)
xlDialogOpen/FindFile ohne Open Optionbutton Aktiv bei Grade oder Ungrade
Dialogfeld zum pdf öffnen frage optionbutton up/down ?
Dialogfeld schließen, wenn Benutzer nichts eingibt Problem mit ApplicationDialogs
Das Dialogfeld "sortieren" aufrufen? Keine Dialogbox bei SaveAs