Wenn Sie verwenden, sollte Form Control OPTION BUTTON
der andere Befehl verwendet werden.
Nachfolgend einige Beispiele:
ActiveSheet.OptionButtons("Option Button 1").Select ActiveSheet.Shapes("Option Button 1").ControlFormat.Value = Xlon Range("A1")=Activesheet.OptionButtons("Option Button 1").value ActiveSheet.OptionButtons("Option Button 1").LinkedCell = "Sheet1!$A$1"
oder
ActiveSheet.Shapes("Option Button 1").ControlFormat.LinkedCell = "Sheet1!$A$1"
Ausführen des Makros bei gedrückter Optionsschaltfläche:
ActiveSheet.Shapes("Option Button 1").OLEFormat.Object.OnAction = "Module1.MyMAcro"