im unten aufgeführten Teil einer Prozedur bekomme ich in der Zeile mit "Set myMenuBar = CommandBars.Add..." einen Laufzeitfehler 5. Was mache ich falsch? Woran liegt das?
Vielen Dank für Eure Antworten
Gruß Lars
Option Explicit
Const MenuName = "Demo-Menü"
Const OpenIcon = 23
Const SaveIcon = 3
Const MugIcon = 480
Sub DemoMenuSystem()
'Erzeugt und installiert ein Demonstrations-Menüsystem
Dim myMenuBar As CommandBar
Dim aMenu As Object
'Benutzerdefinierte Befehlsleiste erzeugen
Set myMenuBar = CommandBars.Add(Name:="Demo-Menü", MenuBar:=True, temporary:=True)
'Menüeinträge der obersten Ebene in Menüleiste eintragen
With myMenuBar.Controls
'Menü Datei hinzufügen
Set aMenu = .Add(Type:=msoControlPopup, temporary:=True)