Range-Funktion
22.08.2003 12:13:08
Flo
Private Sub CommandButton1_Click()
If CheckBox1.Value = False Then
Sheets("Peter").Select
Range("46:46").Select
Selection.EntireRow.Hidden = True
ElseIf CheckBox1.Value = True Then
Sheets("Peter").Select
Range("46:46").Select
Selection.EntireRow.Hidden = False
End If
End Sub