Hallo,
es kommt eine Fehlermeldung...?
Makro läuft nicht, es hängt bei ccb wenn ich auf anderen rechner starte?
Danke im voraus
Gruss
gio
Anmerkung: Makro ist in einem Modul
'Symbolleiste mit Menü mit Untermenü 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
...
...
.