Einblenden/Ausblenden CheckBox
02.09.2005 11:09:03
virgilio
irgendwie komme ich nicht weiter.
habe 5 Infoblöcke die ich wahlweise mit CheckBox einzeln einblenden und ausblenden möchte.
Problem einblenden funktioniert nur wenn ich mit den ersten Block starte.
Ausblenden funktioniert nur für ersten Block
Was mache ich falsch
Vielen Dank im voraus
gio
Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
Rows("27:50").Select
Selection.EntireRow.Hidden = True
Else
Rows("27:50").Select
Selection.EntireRow.Hidden = False
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox1.Value = False Then
Rows("51:69").Select
Selection.EntireRow.Hidden = True
Else
Rows("51:69").Select
Selection.EntireRow.Hidden = False
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox1.Value = False Then
Rows("72:88").Select
Selection.EntireRow.Hidden = True
Else
Rows("72:88").Select
Selection.EntireRow.Hidden = False
End If
End Sub
Private Sub CheckBox4_Click()
If CheckBox1.Value = False Then
Rows("89:98").Select
Selection.EntireRow.Hidden = True
Else
Rows("89:98").Select
Selection.EntireRow.Hidden = False
End If
End Sub
Private Sub CheckBox5_Click()
If CheckBox1.Value = False Then
Rows("99:113").Select
Selection.EntireRow.Hidden = True
Else
Rows("99:113").Select
Selection.EntireRow.Hidden = False
End If
End Sub