Makro an Menü zuweisen
02.03.2005 15:40:09
Prickartz
ich habe folgendes Problem, bei dem ich irgendwie nicht weiterkomme:
ich möchte per VBA ein eigenes Menü und Untermenü erstellen.
Das bekomme ich mit folgendem Makro auch hin:
Sub Menue_2()
On Error Resume Next
ActiveMenuBar.Menus("Arbeitszeit").Delete
ActiveMenuBar.Menus.Add Caption:="&Arbeitszeit", before:="?"
ActiveMenuBar.Menus("Arbeitszeit").MenuItems.Add "&Versand an Verwaltung"
With MenuItems
.Caption = "Versand an Verwaltung"
.OnAction = "Arbeitszeit"
End With
End Sub
Wie schaffe ich es jetzt dem Untermenü ein Makro zuzuweisen, das ausgeführt wird, wenn man den Menüpunkt anklickt.
Ich wäre überglücklich, wenn mir jemand da weiterhelfen könnte...
Thomas