Menüpunkt entfernen
25.07.2003 10:18:43
Christian
ich lasse mir beim Dateiöffen einen Menüpunkt in der Excelmenüleiste anlegen. Mit dem Menü werden diverse Makros innerhalb der Datei aufgerufen. Ich möchte nun, dass beim schließen der Datei dieser Menüpunkt wieder entfernt wird.
Anbei der Code zum Anlegen des Menüpunktes.
Sub Menü()
MenuBars(xlWorksheet).Menus.Add Caption:="&Kundendaten"
MenuBars(xlWorksheet).Menus("Kundendaten").MenuItems.Add _
Caption:="&Neue Kunden eingeben", OnAction:="Modul1.MaskeNeu"
MenuBars(xlWorksheet).Menus("Kundendaten").MenuItems.Add _
Caption:="&Kundendatenbearbeiten", OnAction:="Modul1.Maskeaufrufen"
MenuBars(xlWorksheet).Menus("Kundendaten").MenuItems.Add _
Caption:="&Alle Datensätze anzeigen", OnAction:="Modul1.AlleDatenAnzeigen"
MenuBars(xlWorksheet).Menus("Kundendaten").MenuItems.Add _
Caption:="&Spaltenbreiten anpassen", OnAction:="Modul1.Spaltenbreite"
End Sub
Danke für die Hilfe
Christian