VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Dem Zellkontextmenü ein Menü Zahlungsbedingungen hinzufügen

Gruppe

Menue

Bereich

Context

Thema

Dem Zellkontextmenü ein Menü Zahlungsbedingungen hinzufügen

Problem

Dem Zell-Kontextmenü wurde ein Menü "Zahlungsbedingungen" mit den Schaltflächen "14 Tage" und "30 Tage" hinzugefügt. Bei Anklicken wird die Zahlungsweise eingetragen.

Lösung

Geben Sie den nachfolgenden Code in das Klassenmodul der Arbeitsmappe ein.




ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   On Error Resume Next
   Application.CommandBars("Cell") _
      .Controls("Zahlungsbedingungen").Delete
   On Error GoTo 0
End Sub

Private Sub Workbook_Open()
   Dim oPopUp As CommandBarControl
   Dim oBtn As CommandBarButton
   With Application.CommandBars("Cell")
      On Error Resume Next
      .Controls("Zahlungsbedingungen").Delete
      On Error GoTo 0
      Set oPopUp = .Controls.Add(msoControlPopup)
   End With
   oPopUp.Caption = "Zahlungsbedingungen"
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "14 Tage"
      .OnAction = "SetPayment"
      .Style = msoButtonCaption
   End With
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "30 Tage"
      .OnAction = "SetPayment"
      .Style = msoButtonCaption
   End With
End Sub

StandardModule: Modul1

Sub SetPayment()
   ActiveCell.Value = _
      "Zahlungsbedingungen: " & _
      Application.CommandBars("Cell") _
      .Controls("Zahlungsbedingungen") _
      .Controls(Application.Caller(1)).Caption
End Sub

    


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