Hier die vollständige Codierung:
Danke Euch schonmal.
For Each objCheckBox In man.CheckBoxes
With objCheckBox
If objCheckBox.TopLeftCell.Column = 4 And objCheckBox.Value = xlOn And _
objCheckBox.TopLeftCell.Column = 6 And objCheckBox.Value = xlOff Then
End with |