Optionsbutton Status ändern
27.02.2013 20:36:32
EarnyToLearny
ich habe auf einer Tabelle mehrere Optionsbuttons (mit Steuerelement-Toolbox erstellt), mit der ich Fragen stelle (ja = 1 und nein = 0 als Target. Alle Optionsbuttons haben einen Namen.
Als Frage steht hier zum Beispiel: sind Sie verheiratet? ja nein
Klickt man nun "nein" an, wird in Feld A1 eine 0 gesetzt.
Jetzt käme die zweite Frage: Ist der Ehepartner älter als Sie? ja nein
Da er nicht verheiratet ist, blende ich mit dem unten stehenden Code die Buttons aus, da die Frage nicht benötigt wird.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Sheets("Partner").Range("A1").Value = 0 Then
Alter_nein.Visible = False
Alter_ja.Visible = False
Else
Alter_nein.Visible = True
Alter_ja.Visible =True
Application.ScreenUpdating = True
End If
End Sub
Leider trifft dies nicht ganz meiner Vorstellung. Vielmehr sollen die Buttons in einem leichten GRAU dargestellt werden und beide aktiviert sein, damit der Nutzer weiß, hier kann ich nix anklicken.
Habe es schon mit "ForeColor" und "BackColor" probiert. Jedoch weiß ich nicht, wann und wo ich das FALSE und TRUE setzen muss.
Kann mir hier jemand weiter helfen? Vielen Dank.
Werner