Kategorie:
(Tipp 63)
Wie kann man einem Untermenü weitere Submenüeinträge hinzufügen, die Aufschriften sollen aus einem Tabellenblatt übernommen werden (Makros zu den Menüpunkten haben die gleichen Namen wie die Aufschriften)?
Sub MenueAnpassen() Dim objBar As Object, Liste As Range, intI As Integer Set objBar = MenuBars("Worksheet").Menus("Extras").MenuItems.AddMenu(Caption:="Projekt-Liste") Set Liste = Worksheets(1).[a1:a10] For intI = 1 To Liste.Rows.Count objBar.MenuItems.Add Liste.Cells(intI, 1), Liste.Cells(intI, 1) Next intI End Sub