VBA OptionButtons verschwinden lassen
18.01.2024 14:14:04
Raphael
ich habe eine Excel gebaut, die in den Zellen C4:C10 Fragen beinhaltet. Bei D4:D10 gibts jeweils ein Feld für Ja, E4:E10 für nein und F4:F10 für not relevant.
In den Antwortzellen ist jeweils ein OptionButton. Wenn ich den OptionButton1 in Zelle D4 betätige, sollen die Zeilen 5:7 ausgeblendet werden, wenn ich den OptionButton2 in Zelle E4 tätige sollen diese wieder erscheinen. Das bekomme ich soweit hin.
Allerdings sollen die OptionButtons, die auf den Zellen D5:E7 liegen auch verschwinden bzw. auftauchen. Geht das irgendwie? Oder muss ich das anders lösen?
Danke vorab!
Hier noch der Code, den ich aktuell habe:
Private Sub OptionButton1_Click()
'Zeile x ausblenden, wenn active
If OptionButton1.Value = True Then
'Reihe verstecken
Rows("5:7").EntireRow.Hidden = True
End If
End Sub
Private Sub OptionButton2_Click()
'Zeile x einblenden, wenn active
If OptionButton2.Value = True Then
'Reihe verstecken
Rows("5:7").EntireRow.Hidden = False
'Zellenhöhe einstellen
Rows("5:7").UseStandardHeight = True
End If
End Sub