VBE Umgebung
20.06.2004 00:48:24
Olaf
ich möchte im vbe editor eigene makros über ein menü oder eine schaltfläche in einer symbolleiste aufrufen.
mein testcode funktioniert soweit, dass das menü angelegt wird.
onaction wird auch auf das richtige makro gesetzt (habe ich im debugger nachgesehen).
das problem ist nur, wenn ich auf den menüpunkt klicke, wird das makro trotzdem nicht aufgerufen.
hier mein versuch :
Const MenueName = "&Mein Menü"
Const Befehl1 = "&1. Machwas"
Const Befehl2 = "&2. Machwas"
Sub Menü_Erstellen()
Dim MB As Object, MeinMenü As Object, Befehl As Object
Call Menü_Löschen
Set MB = Application.ThisWorkbook.VBProject.VBE.CommandBars("Test")
Set MeinMenü = MB.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MeinMenü.Caption = MenueName
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = Befehl1
.OnAction = "Machwas1"
End With
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = Befehl2
.OnAction = "Machwas2"
End With
End Sub
Sub Menü_Löschen()
On Error Resume Next
Application.ThisWorkbook.VBProject.VBE.CommandBars("Test").Controls(MenueName).Delete
End Sub
Sub Machwas1()
MsgBox "1. Routine", vbExclamation
End Sub
Sub Machwas2()
MsgBox "2. Routine", vbExclamation
End Sub
vielleicht hat jemand von euch einen tipp ?
ach ja, falls jemand weiß, wie ich das auch über eine schaltfläche in der symbolleiste lösen könnte, wär das der hit :-)
gruß, olaf