Kontextmenü mit Untermenü



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Kontextmenü mit Untermenü
von: Jens
Geschrieben am: 12.05.2002 - 17:10:11

Hallo und guten Abend Excelgemeinde

ich wollte einem eigenen Kontextmenü weitere Untermenüs hinzufügen. Wie muß ich den Code ändern, das dem Menüpunkt Zahlungsbedingungen zwei weitere Untermenüs für die Auswahl der Zahlungsfristen von 14 bzw. 30 Tagen eingefügt werden können.

Sub KonTextMenu()
Dim Ctrl As CommandBarButton
With CommandBars("Cell")
While .Controls.Count > 0
On Error Resume Next
.Controls(1).Delete
Wend
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Zahlungsbedingungen"
.OnAction = "Zahlungsbedingungen"
End With
End With
End Sub


nach oben   nach unten

Re: Kontextmenü mit Untermenü
von: Hans W. Herber
Geschrieben am: 13.05.2002 - 02:35:15

Hallo Jens,

siehe Beispielarbeitsmappe unter:
https://www.herber.de/bbs/texte/9contextadd.xls

hans

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Autofilter als Funktion ?"