Office: Zeilen, inkl. Checkboxen / Optionsfelder ausblenden

Hallo,

ich nutze folgenden Code:

Code:

Code:

Private Sub CheckBox1_Click()

Select Case CheckBox1.Value
Case False
Rows("1:4").Hidden = False
Case True
Rows("1:4").Hidden = True
End Select

End Sub

um die Zeilen 1 bis 4 auszublenden.

Dummerweise bleiben Checkboxen und Optionsfelder die in den Tabellenzeilen stehen von der Ausblendung unbelassen, so dass sich jetzt diverse Steuerelemente in der neuen ersten Zeile (5.) tummeln, solange die Checkbox zum ausblenden aktiviert ist.

Mein Gedanke war den Code zu erweitern, was ich auf folgende Art und Weise umgesetzt habe.

Code:

Code:

Private Sub CheckBox1_Click()

Select Case CheckBox1.Value
Case False
Rows("1:4").Hidden = False
Case True
Rows("1:4").Hidden = True
End Select

Select Case CheckBox1.Value
Case False
CheckBox2.Hidden = False
Case True
CheckBox2.Hidden = True
End Select

End Sub

Ihr ahnt es, dass hat nicht funktioniert. Habt ihr einen Tip für mich, wie ich das realisieren kann? Auch bei mehreren Steuerelementen im zu löschenden Bereich?

Die Gruppierung hilft leider nicht weiter.

Gruß
prom

 

Ok, mein letzter Versuch bestand in Folgendem.

Code:

Private Sub CheckBox1_Click()


CheckBox3.Visible = CheckBox1
CheckBox4.Visible = CheckBox1
CheckBox5.Visible = CheckBox1
CheckBox6.Visible = CheckBox1
CheckBox7.Visible = CheckBox1
CheckBox8.Visible = CheckBox1

Select Case CheckBox1.Value
Case False
Rows("1:4").Hidden = False
Case True
Rows("1:4").Hidden = True
End Select


End Sub

Leider ist das quasi invers verdreht.

Wenn er die Zeilen ausblendet, blendet er die Checkboxen ein. Und umgekehrt.

Sieht jemand den Fehler?

 

OK, hab die Lösung:
Wen sie interessiert findet sie hier...

Besten Dank, das war wichtig.