Hallo zusammen,

ich habe in  einer Excelmappe verschiedene Sheets (Office 365). Diese sind alle mit einem sogenannten Hamburger-Menü versehen um die Navigation später zu erleichtern. Die Datei wird später in einer Ansicht laufen, wo alle Excel-Funktionen und Ansichten automatisch ausgeblendet werden.

Wen es interessiert, der Code dazu ist am Ende. Nun zu meinem Problem. Das Hamburger-Menu ansich funktioniert. Klicke ich drauf, dann erscheint es, klicke ich noch einmal, ist es wieder ausgeblendet. Nun möchte ich aber, wenn ich zwischen den Seiten wechsele, dass das Menu immer ausgeblendet wird, und erst wieder zum Vorschein kommt, wenn ich auf den Button klicke. Dazu habe ich folgende Prozedur geschrieben:

Sub Hamburger()

ActiveSheet.Shapes("Navigation").Visible = Not ActiveSheet.Shapes("Navigation").Visible

End Sub (diese Anweisung dient zum manuellen Einblenden der Navigationsleiste, das funktioniert auch!)

Sub Nav_Startseite()

ActiveSheet.Shapes("Navigation").Visible = False
A_Startseite.Activate

End Sub

Sub Nav_Eingabe_WL()

ActiveSheet.Shapes("Navigation").Visible = False
B_Eingabe_WL.Activate

End Sub

usw. Es gibt insgesamt 10 Sheets in der Arbeitsmappe, die über das Navigationsmenu angesteuert werden können.
Leider ist es so, dass die .visible =  false-Anweisung auf den Sheets nicht funktioniert. Wenn ich z. B. über das aufgeklappte Hamburger-Menu von der Startseite auf die nächste Seite wechsele und dann wieder zurück auf die Startseite, dann sieht man immer noch das Hamburger-Menu auf der Startseite, obwohl es ja eigentlich ausgeblendet sein sollte.

Hat einer eine Idee, woran das liegt oder wie ich den Code verändern muss, damit es klappt?

Hier die Anweisung zum Aus- und wieder Einblenden der Excel-Ansichten und -funktionen. Vielleicht hat ja auch jemand Spaß daran.

Sub Benutzermodus()

'Benutzermodus einschalten

Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayFullScreen = True

ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False

End Sub

Sub Entwicklermodus()

'Entwicklermodus einschalten

Application.DisplayFullScreen = False
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",True)"
Application.DisplayFormulaBar = True

ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True

End Sub