Hallo,
tja, das ist irgendwie immer noch recht übersichtlich bei Dir, aber denn mußt Du hiermit Vorlieb nehmen, so geht's...
Dim objCheckBox As Excel.CheckBox
For Each objCheckBox In Sheet1.CheckBoxes
With objCheckBox
If .TopLeftCell.Column = 4 And .Value = xlOn Then _
Call Sheet1.Cells(.TopLeftCell.Row, 1).Copy
End With
Next
Gruß,
|