zweite Schaltfläche

Public Sub X()
Dim myCommandBar As CommandBar
Dim myCommandBarButton As CommandBarButton
Dim myCommandBarPopup As CommandBarPopup
Set myCommandBar = Application.CommandBars("Worksheet Menu Bar")
Set myCommandBarPopup = myCommandBar.Controls.Add(Type:=msoControlPopup, _
before:=myCommandBar.Controls.Count + 1, Temporary:=True)
With myCommandBarPopup
.BeginGroup = True
.Caption = "Gewichte aufheben"
.TooltipText = "für Mich"
End With
Set myCommandBarButton = myCommandBarPopup.Controls.Add(Type:=msoControlButton, _
before:=myCommandBarPopup.Controls.Count + 1, Temporary:=True)
With myCommandBarButton
.BeginGroup = True
.Caption = "für Mich"
.FaceId = 283
.OnAction = "Gewichtheber"
.Style = msoButtonIconAndCaption
.TooltipText = "für Mich"
.Tag = "für Mich"
End With
End Sub