Ein- und Ausblenden von ComboBoxen durch OptionBut
25.01.2005 12:18:48
Tina
habe zwei OptionButtons und darunter viele ComboBoxen. Nun sollen je nachdem welcher OptionButton angeklickt ist, verschiedene ComboBoxen und Zeilen der Excel Tabelle angezeigt werden.
Das bekomme ich mit dem unten stehenden Code auch hin. Das Problem ist aber, dass beim Schließen und erneuten Öffnen der Datei plötzlich ComboBoxen sichtbar sind, die eigentlich ausgeblendet werden müssten. Das passiert immer sobald man den OptionButton aktiviert, der beim Öffnen der Datei nicht angeklickt war.
Wens da jemand eine Lösung hat, wär's genial!!!
Der Code für den Option Button1 (der OptionButton2 ist gleich programmiert nur umgekehrt also dass was hier versteckt wird, wird eingeblendet):
Private Sub opt1_Click()
Application.ScreenUpdating = False
If opt1 = True Then
ActiveWindow.SmallScroll Down:=0
Rows("20:20").Select
Range("E20").Activate
Selection.EntireRow.Hidden = True
cmb20.Visible = False
ActiveWindow.SmallScroll Down:=0
Rows("33:33").Select
Range("E33").Activate
Selection.EntireRow.Hidden = False
cmb33.Visible = True
ActiveWindow.SmallScroll Down:=0
Rows("72:72").Select
Range("E72").Activate
Selection.EntireRow.Hidden = False
cmb72.Visible = True
ActiveWindow.SmallScroll Down:=0
Rows("104:104").Select
Range("E104").Activate
Selection.EntireRow.Hidden = False
cmb104.Visible = True
End If
Application.ScreenUpdating = True
End Sub