Eigenes Menü aus Modul ansprechen
10.05.2007 19:49:22
Timo
Ich möchte in dem eigenen Menü "Auswertung" den Schritt 2 nur aktivieren, wenn der Schritt 1 durchgeführt wurde. Nun ist die Frage, wie kann aus dem normalen Modul heraus die Menüeintraäge ansprechen und de- bzw aktivieren?
mfg
Timo
'Diese Arbeitsmappe
Private Sub Workbook_Open()
Dim cbMenu As CommandBar
Dim cbSpecialMenu As CommandBarPopup
Dim cbCommand As CommandBarControl
Set cbMenu = Application.CommandBars("Worksheet Menu Bar")
Set cbSpecialMenu = cbMenu.Controls.Add(Type:=msoControlPopup)
cbSpecialMenu.Caption = "AUSWERTUNG"
Set cbCommand3 = cbSpecialMenu.Controls.Add(Type:=msoControlButton)
cbCommand3.Caption = "SCHRITT 1"
cbCommand3.OnAction = "Schritt1"
Set cbCommand4 = cbSpecialMenu.Controls.Add(Type:=msoControlButton)
cbCommand4.Caption = "SCHRITT 2"
cbCommand4.OnAction = "Schritt2"
cbCommand4.Enabled = False
End Sub
'Modul1
Private Sub Schritt1()
cbCommand3.Enabled = False ' das klappt leider nicht... :-(
cbCommand4.Enabled = True
End Sub