Spezialmenu löschen

Guten Tag
Wenn ich eine bestimmte Arbeitsmappe öffne oder aktiviere, erstelle ich ein Spezialmenu:
''DieseArbeitsmappe

Private Sub workbook_activate()
Call Menu_Erstellen
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Menu_Löschen
End Sub

Private Sub Workbook_Deactivate()
Call Menu_Löschen
End Sub

'Modul
Const MenuName = "&X-Tool"

Public Sub Menu_Erstellen()
Dim MB As Object, MeinMenu As Object, Befehl As Object
Set MB = CommandBars.ActiveMenuBar
Set MeinMenu = MB.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MeinMenu.Caption = MenuName
End Sub

Public Sub Menu_Löschen()
On Error Resume Next
CommandBars.ActiveMenuBar.Controls(MenuName).Delete
End Sub

Nun wird bei jedem erneuten Anwählen ein zusätzliches Menü "X-Tool" erstellt - oder mit anderen Worten: Beim Deakltivieren des Workbooks wird das Menü "X-Tool" nicht gelöscht.
Weshalb wir das Spezial-Menü beim Deaktivieren der Datei nicht gelöscht? Ist die Datei schon "weg" wenn der Code "Menu_Löschen" ausgeführt werden sollte - und wenn ja, wie muss ich den Code ergänzen, dass es trotzdem klappt?
Danke und Gruss, Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit 'Modul Private Const MenuName As String = "&X-Tool" Private MeinMenu As CommandBarPopup Public Sub Menu_Erstellen() Dim MB As CommandBar Set MB = CommandBars.ActiveMenuBar Set MeinMenu = MB.Controls.Add(Type:=msoControlPopup, Temporary:=True) MeinMenu.Caption = MenuName End Sub Public Sub Menu_Löschen() Call MeinMenu.Delete Set MeinMenu = Nothing End Sub

Hallo Luschi
Ich bin's nochmals. Nun habe ich eine interessante Entdeckung gemacht. Ich bin in meiner Datei, die x-mal das gleiche Menu aufweist. Nun verlasse ich die Datei nicht, sondern wähle mehrmals mein Menü_Löschen an. Und siehe da: Keine Fehlermeldung bei jedem Anwählen verschwindet ein Menu, bis alle ganz weg sind. Das würde darauf hindeuten, dass der Code so läuft, dass aber das Problem ist, dass ich die Datei deaktiviere?

Public Sub Menu_Löschen()
On Error Resume Next
''CommandBars.ActiveMenuBar.Controls(MenuName).Delete
CommandBars.ActiveMenuBar.Controls(Mid(MenuName, 2)).Delete
End Sub

Ich habe den Code Menü-Erstellen und Menü-Löschen mal in einer sonst leeren Datei nachgebaut:
https://www.herber.de/bbs/user/111813.xlsm
Gruss, Peter

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread