Excel VBA Userform Checkbox.Enabled

[Zeichner]

Hi Zusammen

Ich stelle gerade ein Userform zusammen, mit mehreren Checkboxen.
Ich hätte gerne das Checkbox2 - 9 gesperrt sind bis ich Checkbox 1 abhake.

Momentan habe ich es nur mit checkbox 1+2 getestet:

Private Sub CheckBox1_Click()
   
    If CheckBox1 = True Then CheckBox2.Enabled = True
    If CheckBox1 = False Then CheckBox2.Enabled = False

End Sub

Leider schaffe ich es nicht das die Checkbox 2 beim öffnen der Formulars grundsätzlich auf Enabled = True steht..
Er reagiert erst wenn ich checkbox1 2x anklicke..

Ist es außerdem möglich den Code so schlank zu halten das ich checkbox 2-9 gleichzeitig ansteuern kann oder muss ich pro checkbox 2 zeilen haben?

Vielen Dank

[marose67]

Hallo,

schau Dirmal dieses Beispiel an:

Gruß
Marcus

[Zeichner]

Hi Marcus

Super, das mit UserForm_Activate() wusste ich nicht  :)
Vielen dank!

[marose67]

Hallo,

dafür ist das Forum doch da. Ich bin froh, wenn ich mit meinen alten Tabellen noch jemandem helfen kann.

Gruß
Marcus

[atilla]

Hallo Zeichner,

Du kannst die Chekboxen auch in den Eigenschaften auf False stellen, dass muss nicht beim aktivieren der Userform passieren.

Dann die Frage zur Vereinfachung:
Dein eingestellter Code könnte so zusammengefasst werdenPrivate

Code:

Private Sub CheckBox1_Click()
  CheckBox2.Enabled = CheckBox1 = True
End Sub