ich möchte gerne einzelne markierte Zellen ansprechen (markierte Zellen sind nicht nebeneinander) und in diese Zellen einen Button eifügen. Habs so probiert, dass geht aber nicht. Bei der ersten Zelle geht es aber dann nicht mehr.
selanz = Selection.Count
For i = 1 To selanz
Selection.Cells(i).Activate
dWidth = ActiveCell.Width + 2
dHeight = ActiveCell.RowHeight + 2
dLeft = ActiveCell.Left
dTop = ActiveCell.Top
Set xyz = ActiveSheet.OLEObjects.add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=dLeft, Top:=dTop, Width:=dWidth, Height:=dHeight)
xyz.Object.Caption = text
Next
Muss ich die Positionen in einem Array speichern, oder geht das irgendwie eifacher.