Also:
Ich lasse per Makro ein Menü entstehen:
Sub menu_aufbauen()
menu_loeschen
Dim Hauptmenu As CommandBar
Dim aufrufen As CommandBarControl
Dim Steuerelement1 As CommandBarControl
Dim Steuerelement2 As CommandBarControl
Dim Steuerelement3 As CommandBarControl
Dim Steuerelement4 As CommandBarControl
'Dim Steuerelement5 As CommandBarControl
Set Hauptmenu = CommandBars.ActiveMenuBar
Set aufrufen = Hauptmenu.Controls.Add _
(Type:=msoControlPopup, Temporary:=False)
aufrufen.Caption = "Seriendruck Menü"
Set Steuerelement1 = aufrufen.Controls.Add _
(Type:=msoControlButton, Id:=1)
With Steuerelement1
.Caption = "Hauptmenu aufrufen"
.TooltipText = "Klicken um Menü zu starten"
.Style = msoButtonCaption
.OnAction = "Menu_aufrufen"
End With
Set Steuerelement2 = aufrufen.Controls.Add _
(Type:=msoControlButton, Id:=1)
With Steuerelement2
.Caption = "zu Word wechseln"
.TooltipText = "Klicken um Word zu starten"
.Style = msoButtonCaption
.OnAction = "Word_Wechseln"
End With
Set Steuerelement4 = aufrufen.Controls.Add _
(Type:=msoControlButton, Id:=1)
With Steuerelement4
.Caption = "Auto Filter für Quelldaten setzen"
.TooltipText = "Klicken für den Autofilter"
.Style = msoButtonIconAndCaption
.FaceId = 1664
.OnAction = "auto_filter"
End With
'Set Steuerelement5 = aufrufen.Controls.Add _
' (Type:=msoControlButton, Id:=1)
'With Steuerelement5
' .Caption = "Liste drucken"
' .TooltipText = "Klicken um eine Liste auszudrucken"
' .Style = msoButtonCaption
' .OnAction = "Drucken_vorbereiten"
'End With
Set Steuerelement3 = aufrufen.Controls.Add _
(Type:=msoControlButton, Id:=1)
With Steuerelement3
.Caption = "Info - Hilfe"
.TooltipText = "Klicken um Hilfe zu erhalten"
.Style = msoButtonCaption
.OnAction = "Hilfe_starten"
End With
End Sub
Nun möchte ich wenn ich auf den Menüpunkt "Autofilter" drücke, dass wie im richtigen Autofiltermenü ein Häcken davor erscheint wenn ich darauf klicke, ich habs mit der Symbol ID Probiert, aber leider bringt das nichts
Danke schonmal
Steffen