VBA mehrere OptionsButton

Hüsi

Grünschnabel
Hallo Zusammen,

folgendes Problem habe ich:

Ich habe mehrere Button mit Ja nein, kann aber immer nur einen anklicken.
So sieht mein Code aus:

ActiveSheet.OptionButtons.Add(105.5, 454, 54, 16.5).Select
ActiveSheet.OptionButtons.Add(186.5, 454, 54, 16.5).Select
ActiveSheet.OptionButtons.Add(154.5, 610, 54, 16.5).Select
ActiveSheet.OptionButtons.Add(204.5, 610, 54, 16.5).Select
ActiveSheet.OptionButtons.Add(154.5, 634, 54, 16.5).Select
ActiveSheet.OptionButtons.Add(204.5, 634, 54, 16.5).Select

ActiveSheet.OptionButtons.Add(105, 346, 54, 16.5).Select
ActiveSheet.OptionButtons.Add(186, 346, 54, 16.5).Select
ActiveSheet.OptionButtons.Add(105, 370, 54, 16.5).Select
ActiveSheet.OptionButtons.Add(186, 370, 54, 16.5).Select


.Shapes("Optionsfeld 1").TextFrame.Characters.text = "Nein"
.Shapes("Optionsfeld 2").TextFrame.Characters.text = "Ja"
.Shapes("Optionsfeld 3").TextFrame.Characters.text = "Ja"
.Shapes("Optionsfeld 4").TextFrame.Characters.text = "Nein"
.Shapes("Optionsfeld 5").TextFrame.Characters.text = "Ja"
.Shapes("Optionsfeld 6").TextFrame.Characters.text = "Nein"

.Shapes("Optionsfeld 7").TextFrame.Characters.text = "Nein"
.Shapes("Optionsfeld 8").TextFrame.Characters.text = "Ja:"
.Shapes("Optionsfeld 9").TextFrame.Characters.text = "Nein"
.Shapes("Optionsfeld 10").TextFrame.Characters.text = "Ja:"

Könnt Ihr mir da weiterhelfen ?

Besten Dank.
 

Yaslaw

alter Rempler
Moderator
Excel? Wobei .Shapes kenn ich bei Excel gar nicht. Das klingt wieder eher nach Visio.

1) Was für ein MS-Produkt?

2) Auf was bezieht sich .Shapes

3) Was ist die Frage?