VBA mehrere OptionsButton

Computer: Software & Programmierung Visual Basic
#1

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.

#2

Hallo,

es liegt an eine fehlenden Gruppierung.

Um mehrere Optionen gruppieren zu können, muss vor dem Erstelle der Optionen ein Gruppierungs-Element erstellt werden. Die Optionselemente müssen sich innerhalb eines Gruppierungs-Elements befinden.

In einer Gruppierung kann nur eine Option ausgewählt werden.

LG, BigBen