Hallo Leute,
ich habe wie folgt einen Button erzeugt.
Dim tarCell As Range
Set tarCell = Range("H3")
Dim obj As OLEObject
Set obj = ActiveSheet.OLEObjects.Add( _
ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, _
Left:=tarCell.Left, Top:=tarCell.Top, _
Width:=tarCell.Width, Height:=tarCell.Height)
Ich möchte diese Button jetzt ein Makro zuweisen oder anderweitig Code zuweisen.
Weiß jemand, wie man das machen kann? |