Hallo,
das könntest Du z. B. in das Change-Ereignis der Checkboxen einfügen. Ich würde das ganze aber in eine externe Sub auslagern und diese im Ereignis aufrufen:
Private Sub CheckBox1_Change()
HideRows
End Sub
Private Sub CheckBox2_Change()
HideRows
End Sub
Private Sub CheckBox3_Change()
HideRows
End Sub
Sub HideRows()
Rows("76:105").Hidden = Not (CheckBox1.Value Or CheckBox2.Value Or CheckBox3.Value)
End Sub
Gruß
Michael
|