Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Call BtnDelete
End Sub

Private Sub Workbook_Open()
   Dim oBtn As CommandBarButton
   Call BtnDelete
   Set oBtn = Application.CommandBars("Formatting").Controls.Add
   With oBtn
      .Caption = "Befehl"
      .FaceId = 2
      .OnAction = "MeinBefehl"
      .Visible = True
   End With
End Sub

StandardModule: basMain

Sub BtnDelete()
   On Error GoTo ERRORHANDLER
   Application.CommandBars("Formatting") _
      .Controls("Befehle").Delete
ERRORHANDLER:
End Sub

Sub MeinBefehl()
   MsgBox "Ich bin der Befehl!"
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Menue und Button