Menueleiste erstellen
19.06.2003 09:10:33
Erich M.
habe in einer der Foren folgendes Makro entdeckt, das mir vom Aufbau gut gefallen hat. Dabei wird die Menueleiste völlig neu erstellt - allerdings immer nur mit "einem Unterbau".
Sub Menue_erstellen()
MenuBars(xlWorksheet).Reset
Anzahl = MenuBars(xlWorksheet).Menus().Count
For i = 1 To Anzahl
MenuBars(xlWorksheet).Menus(1).Delete
Next i
MenuBars(xlWorksheet).Menus.Add "&Test1"
Set ml = MenuBars(xlWorksheet).Menus("Test1")
With ml
.MenuItems.Add Caption:="Untertest1", _
OnAction:="aa"
.MenuItems.Add Caption:="Untertest2", _
OnAction:="ab"
.MenuItems.Add Caption:="Untertest3", _
OnAction:="ac"
End With
MenuBars(xlWorksheet).Menus.Add "&Test2"
Set ml = MenuBars(xlWorksheet).Menus("Test2")
With ml
.MenuItems.Add Caption:="Untertest2", _
OnAction:="ba"
.MenuItems.Add Caption:="Untertest3", _
OnAction:="bb"
.MenuItems.Add Caption:="Untertest4", _
OnAction:="bc"
End WithEnd sub
Code eingefügt mit: Excel Code Jeanie
Nun möchte ich erreichen, dass z.B. nach "Untertest1" eine weitere Schaltfläche "Untertest1a! erstellt wird, von "Untertest2" eine weitere mit "Untertest2a" usw.
Diverse Versuche sind gescheitert.
Kann mich leider nicht verständlicher (mit Fachbegriffen) ausdrucken.
Besten Dank!
mfg
Erich