Hallo,
ich möchte mit einem Kontrollkästchen alle anderen Kontrollkästchen an- und abwählen.
Private Sub CheckBox1_Click()
Dim Box As OLEObject
If CheckBox1 = True Then
For Each Box In ActiveSheet.OLEObjects
Box.Object = True
Next Box
Else
For Each Box In ActiveSheet.OLEObjects
Box.Object = False
Next Box
End If
End Sub
Das Problem ist, mit diesem Code wird meine Textbox auch angesprochen.
Da ich ein Neuling bin, weis ich nicht so recht wie ich den Code umschreiben soll.
lg
|