Die Methode 'OnAction' -> '_CommandBarButton'
26.09.2013 10:58:07
HolgerCW
was fehlt mir an einem Rechner, wenn er bei ".onAction" den Fehler schmeißt:
Die Methode 'OnAction' für das Objekt '_CommandBarButton' ist fehlgeschlagen.
Hier der Code:
Dim cmdbutton, MB, M1
Application.CommandBars("System").Enabled = False
Set MB = CommandBars.Add(Name:=MenüName, MenuBar:=True, Temporary:=True)
' ########## DATEI ##########
Set M1 = MB.Controls.Add(Type:=msoControlPopup)
M1.Caption = "&Datei"
Set cmdbutton = M1.Controls.Add
With cmdbutton
.Tag = "dpmSpeichern"
.Caption = "&Speichern"
.OnAction = "KoBuSys_Speichern"
.Style = msoButtonIconAndCaption
.FaceId = 3
End With
Gruss
Holger