Symbolleiste 2. Anlauf

Bild

Betrifft: Symbolleiste 2. Anlauf von: gio
Geschrieben am: 31.03.2005 14:43:27

Hallo,
Um Probleme mit der Symbolleiste beim Kopieren der Dateien zu vermeiden, habe ich versucht die Symbolleiste mit Makro zu erstellen.
Passt, aber nur auf meinen Rechner..
Auf anderen Rechner kommt Fehlermeldung:
Projekt oder Bibliothek nicht gefunden.
Wie kann ich Code ändern?
Gruss u. Dank im voraus
gio

'Symbolleiste mit Menü mit Untermenü, Textfeld, und Dropdown erstellen

Sub Auto_Open()
On Error Resume Next
Application.CommandBars("Menü-Montageanleitung").Delete 'eventuell bestehende Leiste erst löschen
'Commandbar erstellen
Set ccb = CommandBars.Add("Menü-Montageanleitung") ----FEHLERMELDUNG HIER???---


'Menü erzeugen
Set ccbDu = ccb.Controls.Add(msoControlPopup)
ccbDu.Caption = "Überschrift"

'Menüzeilen erstellen
Set pop1 = CommandBars("Menü-Montageanleitung").Controls(1)

'erste Menüzeile erzeugen
With pop1.CommandBar.Controls.Add(Before:=1, Type:=msoControlButton)
.Caption = "neue Überschrift gross"
.OnAction = "neuInhalt"
.FaceId = 12
End With
...
...
.
.

Bild


Betrifft: AW: Symbolleiste 2. Anlauf von: u_
Geschrieben am: 31.03.2005 15:18:03

Hallo,
set ccb=commandbars.add(Name:="Test",temporary:=true)

Gruß


Bild


Betrifft: AW: Symbolleiste 2. Anlauf HELP ME von: gio
Geschrieben am: 31.03.2005 16:05:55

Hallo,
es kommt diesselbe Fehlermeldung.
Excel markiert mir ccb wenn ich auf anderen rechner starte????
Danke im voraus
Gruss
gio

Anmerkung: Makro ist unter Modul

'Symbolleiste mit Menü mit Untermenü, Textfeld, und Dropdown erstellen

Sub Auto_Open()
On Error Resume Next
Application.CommandBars("Menü-Montageanleitung").Delete 'eventuell bestehende Leiste erst löschen
'Commandbar erstellen
set ccb=commandbars.add(Name:="Menü-Montageanleitung",temporary:=true)----FEHLERMELDUNG HIER???---


'Menü erzeugen
Set ccbDu = ccb.Controls.Add(msoControlPopup)
ccbDu.Caption = "Überschrift"

'Menüzeilen erstellen
Set pop1 = CommandBars("Menü-Montageanleitung").Controls(1)

'erste Menüzeile erzeugen
With pop1.CommandBar.Controls.Add(Before:=1, Type:=msoControlButton)
.Caption = "neue Überschrift gross"
.OnAction = "neuInhalt"
.FaceId = 12
End With
...
...
.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Symbolleiste 2. Anlauf"