Kategorie:
(Tipp 59)
Wie kann man eigenen Menüpunkten einen Hinweistext in der Statuszeile zuordnen?
Hinweis zu Excel 2007: Entfällt.
Sub MenuStatus() Dim objMeinMenu As Object Application.MenuBars(xlWorksheet).Menus.Add "Test" Set objMeinMenu = Application.MenuBars(xlWorksheet).Menus("Test").MenuItems.Add("1. Menüpunkt") With objMeinMenu .OnAction = "Meldung" .StatusBar = "Ich bin der 1. Menüpunkt" End With End Sub