Herbers Excel-Forum - das Archiv

Bewerten Sie hier bitte das Excel-Portal

Menüleiste beim öffnen einbelnden

Bild

Betrifft: Menüleiste beim öffnen einbelnden
von: marla
Geschrieben am: 05.11.2003 10:03:04
Hi!

Habe eine Menüleiste mit dem Namen "Navigation" erstellt. Diese soll nun jedesmal beim öffnen der Datei angezeigt werden. Egal wer diese Datei von welchem PC aus aufmacht. Hab in VBA unter "DieseArbeitsmappe" folgenden Code stehn: 



Private Sub Workbook_Open()
Application.CommandBars("Navigation").Enabled = True
End Sub


Es kommt jedesmal beimöffnen die Fehlermeldung Ungültiger Prozeduraufruf oder ungültiges Argument!!

Kann mir da jemand weiterhelfen????

Danke, mfg
marla
Bild

Betrifft: AW: Menüleiste beim öffnen einbelnden
von: Hajo_Zi
Geschrieben am: 05.11.2003 10:05:13
Hallo Marla

die Symbolleiste muß aber auf dem Rechner vorhanden sein.



Private Sub Workbook_Open()
Application.CommandBars("Navigation").Visible = True
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Bild

Betrifft: AW: Menüleiste beim öffnen einbelnden
von: marla
Geschrieben am: 05.11.2003 10:08:56
Bei den Symbolleisten funktioniert das ohne Probleme, nur bei dem Menüpunkt bekomme ich die Fehlermeldung. Das Menü ist auch vorhanden, es wird schon angezeigt, nur um sicher zu gehen, dass es bei den anderen Anwendern auch angezeigt wird - was jetzt leider nicht der Fall ist - habe ich diesen sub geschrieben, da bekomme ich aber wirklich jedesmal die Fehlermeldung zurück. Kann es sein, dass der Name der Menüleiste nicht stimmt?
Bild

Betrifft: AW: Menüleiste beim öffnen einbelnden
von: Hajo_Zi
Geschrieben am: 05.11.2003 10:12:31
Hallo Marla

Du meinst in der Zeile Datei, Bearbeiten ...

Ich habe es jetzt mal an einem Beispiel getestet.



Sub Ausblenden2()
Application.CommandBars.ActiveMenuBar.Controls("Hajo Ziplies").Visible = False
End Sub






Sub Einblenden2()
Application.CommandBars.ActiveMenuBar.Controls("Hajo Ziplies").Visible = True
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Bild

Betrifft: Super, funktioniert, DANKE!! (o.T.)
von: marla
Geschrieben am: 05.11.2003 10:18:36
.............
Bild