Viele Checkboxen über "Alle" ändern
06.06.2006 16:58:47
Phoeni
ich habe einen Dialog mit vielen Checkboxen, man kann die Checkboxen einzeln auswählen oder über eine Checkbox alle gleichzeitig auswählen, bzw. die Auswahl aufheben. (wie z.B. bei Pivottabellenfeldern, etc.)
Ich habe folgenden Code geschrieben:
Private Sub chkAlle_Click()
'Wird Alle angeklickt ändert sich die Value für alle Chks
dim x%
For x = 0 To 12
Set chk = Controls("chk" & x)
chk.Value = chkAlle.Value
Next x
End Sub
Was muss ich in die einzelnen Chkboxen schreiben, damit sich sobald sich ihr Wert ändert auch der Wert der chkAlle ändert, ohne, dass sich der Wert sämtlicher Checkboxen ändert?
Danke für eure Hilfe,
Phoeni
Anzeige