Hallo Excelperten,
ich habe ein Tool mit eigenem Menü in der Leiste und blende diese mit Workbook_Activate ein und mt Workbook_Deactivate wieder aus. Den Code seht ihr unten. Mit Diesen Menüs navigiere ich über die Tabellen (ca 20), immportiere Daten & starte verschiedene Datenanalysen. Das funktionierte bis jetzt auch alles wunderbar.
Auf Wunsch der User habe ich Diagramme als Tab eingefügt. Wenn ich jedoch auf diese Diagramme-Tabs gehe, dann verschwindet mein Menü solange bis ich wieder auf eine Tabelle gehe. Dies ist jedoch nicht in meinem Sinne. Was muss ich machen, damit die Menüs immer sichtbar bleiben? Bin für alle Tips & Hilfen dankbar, da ich keine Idee habe wie ich das Problem angehen kann...
Sub Workbook_Activate()
Application.ScreenUpdating = True
Call Menu
Application.ScreenUpdating = True
End Sub
Sub Workbook_Deactivate()
Application.ScreenUpdating = False
On Error Resume Next
MenuBars(xlWorksheet).Menus("Eigene_Leiste").Delete
Application.ScreenUpdating = True
End Sub
Sub Menu
Set Newmenu = MenuBars(xlWorksheet).Menus.Add("Eigenes_Menü")
Set NewSubMenu = Newmenu.MenuItems.AddMenu("Daten")
Set newelement = NewSubMenu.MenuItems.Add("Daten importieren", "import_all")
' 6 weiter Submenüs mit diversen MenuItems
End Sub
ich danke schon mal für Hilfe!
Chris