CheckBox auf False setzen
10.03.2003 11:49:52
Harry Adam
Ich habe ein Problem. Ich möchte mehrere CheckBoxen auf den Wert
False setzen. Es wird aber nur die erste CheckBox geändert, die anderen bleiben auf ihren alten Stand.
Private Sub CommandButton1_Click()
If CheckBox1.Value = "Wahr" Then Call Druck_K1
If CheckBox2.Value = "Wahr" Then Call Druck_K2
If CheckBox3.Value = "Wahr" Then Call Druck_K3
If CheckBox4.Value = "Wahr" Then Call Druck_K4
For i = 1 To 4
Me.Controls("CheckBox" & i).Value = "False"
Next i
End Sub
Die Checkboxen sind mit ControlScource verbunden.
Was mache ich falsch ?