HERBERS Excel-Forum - die Beispiele

Thema: Dem Zellkontextmenü ein Menü Zahlungsbedingungen hinzufügen

Home

Gruppe

Menue

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

Excel Form Kontextmenue geht nicht Zellen Kontextmenue ausfuehren
Dynamisches Kontextmenue Makro für Pulldown Menue
Menueeintrag einbinden makro in kontextabhängiges Befehlsmenue
Menue mit eigenen Macros versehen Entfernen eines Eintrages im Kontextmenue
Untermenue von Menueleiste Adresszeile/Formelzeile im Menue ist weg
FaceId bei Untermenue möglich? Menue Leiste ein ausblenden
Menue nur erstellen, wenn noch nicht vorhadnen Menuebar ausblenden
2003 Menuepunkte in 2007 finden Kontexmenue
Filter als Dropdown-Menue in neuem Tabellenblatt Menue
Eigenes Formatierungsmenue Kontextmenue
Autofilter, polldown Menue in Fragmenten? Drop down Menue
Excel Menues mit Bildern Pfeil im Drop-Down-Menue dauerhaft
Drop Down Menue in Zelle Abhängige Drop-Down-Menues
Mehrere Untermenues + Application.caller() Problem Menue - Makro editieren
Menueleiste zerschossen Menueerweiterung um Bildchens
Pulldown Menueeintraege disablen enablen? Menueleiste "Überarbeiten" nie anzeigen !
Alle Menue- und Symbolleisten sind weg. Einfügen von Werten in ein Dropdownmenue
Dropdownmenue Dateien eines Verzeichnisses in Pulldown Menues
drop-down menue als Sortierung Zusaetzliches Menue in Menueleiste
dropdownmenue nicht "selbstentleerend" Menue-Text aus Zelle übernehmen
Menue Sheet beim Oeffnen einer Excel Datei Menueeintrag immer sichtbar machen
Menueleiste An Heiko-Eigenes Context Menü für Maus
Eigenes Context Menü für Maus Kontex-Menue
eigene Menueleiste erstellen Frage zur HelpContextID-Eigenschaft bei Label
FDrage zur HelpContextID-Eigenschaft bei Label Problem beim Menueeintrag verbergen