Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: DieseArbeitsmappe

Private Sub Workbook_Activate()
   Dim oPopUp As CommandBarControl
   Dim oBtn As CommandBarButton
   Call CmdDelete
   Set oPopUp = Application.CommandBars("Cell"). _
      Controls.Add(msoControlPopup, before:=1)
   oPopUp.Caption = "Datum und Zeit"
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Datum"
      .OnAction = "DatumErmitteln"
      .Style = msoButtonIconAndCaption
      .FaceId = 1094
   End With
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Zeit"
      .BeginGroup = True
      .OnAction = "ZeitErmitteln"
      .Style = msoButtonIconAndCaption
      .FaceId = 33
   End With
End Sub

Private Sub Workbook_Deactivate()
   Call CmdDelete
End Sub

StandardModule: basMain

Sub DatumErmitteln()
   MsgBox Date
End Sub

Sub ZeitErmitteln()
   MsgBox Time
End Sub

Sub CmdDelete()
   On Error GoTo ERRORHANDLER
   Application.CommandBars("Cell").Controls("Datum und Zeit").Delete
ERRORHANDLER:
End Sub

    

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