mit folgendem Problem komme ich nicht klar:
ich habe im Cell-Kontext ein CommandBarButton eingefügt, der beim Click-Ereignis eine ComboBox in das aktive Arbeitsblatt einfügt. Das funktioniert soweit auch, allerdings nur beim ersten Click. Danach nicht mehr. Benutze ich hingegen einen regulären Commandbutton den ich direkt ins Dokument einfüge, so lässt sich die Routine beliebig oft ausführen. Wo liegt mein Fehler ? Nachfolgend der Code:
' *** EventKlasse ***
Public WithEvents cmdbutton As CommandBarButton
Private Sub cmdbutton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
Dim ws As Worksheet
Dim oObj As OLEObject
Dim cell As Range
Set ws = ActiveSheet
ws.Activate
Set cell = ActiveCell
Set oObj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=cell.Left, _
Top:=cell.Top, _
Width:=cell.Width, _
Height:=cell.Height)