[VBA] OptionButtons deaktiviert als Default

[Lasersword]

Hallo CBler,

hab mal wieder ein VBA-Probelm .

In einer Userform habe ich 2 OptionButton, welche beide den Wert "false" hatten.

Jetzt ist es allerdings so, dass ein Button immer aktiv ist (der Zweite).
Beide Buttons haben unter Eigenschaften aber den Value "false".

Wie kann ich dafür sorgen, dass beide Buttons wieder inaktiv sind?

Um aber die Frage vorweg zu nehmen, was das denn für einen Sinn hat, da
bei einem OptionButton ja immer eine Auswahl geroffen sein solle, hier der Grund:

Mit diesen Buttons wird eine recht wichtige Information weiter gegeben, bei der ich
sicher gehen will, dass die Auwahl bewußt getroffen wurde.
(ich kenne da ein paar Spezialisten, die das übersehen würden und u. U. eine falsche Information weiter geben würden, weil die das Feld bzw. die Buttons "übersehen" haben.)

btw. Checkboxen habe ich auch schon versucht, scheitere aber etwas an der Abhängigkeit der Boxen zu einander (nur 1 Auswahl möglich).

Habt ihr einen Lösungsvorschlag?

Danke und Gruß,

Lasersword

 

[GMG-CC]

Moin,

meinst du das so? (siehe Anhang)

 

[Lasersword]

Guten Morgen Captain,

nicht ganz.

Die Funktion des Button sollte ausgeführt werden, wenn sich die
Userform öffnet.

Unter Eigenschaften haben beide Button den Value = false.

Allerdings ist Button2 beim Start der Userform aktiviert.

Gruß,

Lasersword

 

[GMG-CC]

Hi Lasersword,

mit etwas Neugier wärest du vielleicht auf diese Lösung gekommen:

Private Sub UserForm_Activate()
   With Me
      .OptionButton1.Value = False
      .OptionButton2.Value = False
      .OptionButton3.Value = False
   End With
End Sub

 

[Lasersword]

Hallo Captain,

die Lösung hatte ich schon ausprobiert und hat nicht funktioniert.

Da es sich um eine Modifikation eines bestehend Dokumentes
handelt (wurde nicht von mir entwickelt) habe ich mich noch
mal durch den kompletten Quellcode gequält.

Und tatsächlich, unter UserForm_Initialize stand ganz
versteckt (hab es echt übersehen) der Befehl:

OptionButton2.Value = true

Trotzdem noch mal vielen Dank.

Gruß,

Lasersword

 

[GMG-CC]

Moin Lasersword,

Autsch ...

Danke für das Feedback!