Menüerweiterung
06.08.2003 22:05:27
Christian
Ich möchte mein Excelmenü für eine große Tabelle erweitern, damit ich nicht mehr mit Command Buttons arbeiten muß. Die Makros die angesteuert werden sollen, existieren schon und funktionieren, sie stellen in der regel häufige Arbeitsabläufe dar.
Naja jeden falls habe ich es schon hin bekommen, dass das Excelmenü erweitert wird. Auch das sich darunter einzelne Menüpunkte (die die Makros aktevieren) anlegen habe ich hinbekommen. Wie bekomme ich den unter das Menü ein Untermenü angelegt???
z.B.
Excelmenü==>Kunden
Untermenü==>Sortieren Wie lege ich dass an???
Menüpunkt==>Kunden
Menüpunkt==>Städte
Untermenü==>Daten
Menüpunkt==>Neue Daten eingeben
Menüpunkt==>Datensätze ändern
...usw.
Mein Code:
'Excelmenü
MenuBars(xlWorksheet).Menus.Add Caption:="&Kunden"
'Menüpunkte
MenuBars(xlWorksheet).Menus("Kunden").MenuItems.Add _
Caption:="&Nach Kunden sortieren", OnAction:="Modul1.SortierenKunden "
MenuBars(xlWorksheet).Menus("Kunden").MenuItems.Add _
Caption:="&Neue Daten eingeben", OnAction:="Zusatz.NeuDatEin"
MenuBars(xlWorksheet).Menus("Kunden").MenuItems.Add _
Caption:="&Datensätze ändern", OnAction:="Zusatz.DatAend"