Wenn die ersten Kriterien stimmen so wird in der CheckBox ein Hakerl gesetzt.
Wenn sie jedoch nicht mehr stimmen so soltte das Hakerl rausgenommen werden.
Tut es aber nicht. Wo habe ich hier bitte den Fehler gemacht?
Danke
Josef
d = wks1.Cells(2, 5)
If (Day(d) = 2 Or Day(d) = 3) And Month(d) = 1 And wks.Cells(1, 43) = TextBox3.Text Then
CheckBox1.Value = True
Dim k&
For k = 2 To 20
Me.Controls("CheckBox" & k).Visible = True
Next k
Else
If Not (Day(d) = 2 Or Day(d) = 3) And Month(d) = 1 And wks.Cells(1, 43) = TextBox3.Text Then
CheckBox1.Value = False