Zeilen mit Checkboxen ausblenden/einblenden

[Hawkeye]

Hallo zusammen

Ich verwende folgenden Code, um mit Checkboxen Zeilen auszublenden (wen Haken nicht gesetzt=ausgeblendet):

Private Sub CheckBox8_Click()
 With Sheets("Preisübersicht_Rechnung").Range("Z_Vortrag").Rows
 .Hidden = Not .Hidden
 End With
End Sub

Nun klappt das ganz gut, allerdings wird nur der Zustand gewechselt. Was muss ich als COde verwenden, damit beim setzten eines Häckchens immer
der einblenden Befehl ausgeführt wird (auch falls schon eingeblendet) und beim wegnehmen des Häckchens immer der ausblenden Befehl?

Ausserdem würde ich gerne gewisse Checkboxen (z.B. Nr. 2 und 3) nur cklickbar (veränderbar) machen, wenn Chechbox Nr. 1 einen Haken enthält.

Ich denke, dass dies einfach realisierbar ist, aber ich habe keine Ahnung mit welchem Code.
Kann bitte jemand helfen?

[Kuwer]

Hallo,

Private Sub CheckBox8_Click()

   With Sheets("Preisübersicht_Rechnung").Range("Z_Vortrag").Rows

     .Hidden = Not CheckBox8

   End With

End Sub



Private Sub CheckBox1_Click()

   CheckBox2.Enabled = CheckBox1

   CheckBox3.Enabled = CheckBox1

End Sub

Gruß Uwe