Hi zusammen,
über den Rekorder soll mir folgender eingebundener Code beim Öffnen des Workbooks eine benutzerdefinierte Symbolleiste liefern:
Application.CommandBars.Add(Name:="All In One", Position:=msoTop, MenuBar:=False, Temporary:=True).Visible = True
Application.CommandBars("All In One").Controls.Add Type:=msoControlButton, _
ID:=4, Before:=1
Application.CommandBars("All In One").Controls.Add Type:=msoControlButton, _
ID:=444, Before:=2
Application.CommandBars("All In One").Controls.Add Type:=msoControlButton, _
ID:=445, Before:=3
Application.CommandBars("All In One").Visible = False
Leider erhalte ich eine Fehlermeldung.
Ideen?
Danke und Gruss,
Hendrik