ich habe ein Makro-Menü erstellt, mit dem der Nutzer auf verschiedene Arbeitsblätter navigieren kann. Das sieht ausschnittsweise folgendermaßen aus:
' ...
Set NeuesMenue = CommandBars.ActiveMenuBar.Controls.Add _
(Type:=msoControlPopup, Temporary:=True)
With NeuesMenue
.Caption = "NavigationsMenue"
End With
Set St = Pop1.Controls.Add(Type:=msoControlButton, ID:=1)
With St
.Caption = "Sep15"
.Style = msoButtonCaption
.OnAction = "Activate_Worksheet"
End With
Set St = Pop1.Controls.Add(Type:=msoControlButton, ID:=1)
With St
.Caption = "Sep30"
.Style = msoButtonCaption
.OnAction = "Activate_Worksheet"
End With
' und so weiter
Wenn man auf einen Menüpunkt klickt, dann soll der Nutzer zu dem entsprechenden Worksheet gelangen (durch Aufruf von "Activate_Worksheet"). Leider krieg ich die Funktion aber nicht hin, kann mir jemand helfen?
Danke und Gruß,
Manuel