Makro an Menü zuweisen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Makro an Menü zuweisen
von: Prickartz
Geschrieben am: 02.03.2005 15:40:09
Hallo zusammen,
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
Bild

Betrifft: AW: Makro an Menü zuweisen
von: c0bRa
Geschrieben am: 02.03.2005 15:46:27
hallo
ich glaub der befehl
call [makro]
sollte dir weiterhelfen

Das Forum lebt auch von Rückmeldungen...
c0bRa
Bild

Betrifft: AW: Makro an Menü zuweisen
von: Prickartz
Geschrieben am: 02.03.2005 15:56:57
Wohin muß ich "call" denn schreiben, damit das makro nicht durch die Prozedur, sondern beim "klicken" auf das Menü ausgeführt wird?
Bild

Betrifft: AW: Makro an Menü zuweisen
von: c0bRa
Geschrieben am: 02.03.2005 16:07:17
sry... steh grad ein bissl aufm schlauch...
wennste die menuleiste via rechtsklick erstellst, kannste jedem button einfach nen makro zuweisen... via VBA weiß ich es nicht, sollte aber ähnlich gehen...
hab deinen code nicht als menu interpretiert, sondern als sub ;)
evtl weiß reinhart mehr ;)
c0bRa
Bild

Betrifft: AW: Makro an Menü zuweisen
von: Reinhard
Geschrieben am: 02.03.2005 15:54:48
Hi Thomas,
(ungetestet) bei Klick auf "Versand an Verwaltung" müsste das Makro "Arbeitszeit" starten durch deine Befehle:
.Caption = "Versand an Verwaltung"
.OnAction = "Arbeitszeit"
Gruß
Reinhard
Bild

Betrifft: AW: Makro an Menü zuweisen
von: Prickartz
Geschrieben am: 02.03.2005 16:08:09
Hallo Reinhard,
das dachte ich eigentlich auch, das Menü sehe ich zwar, aber es passiert nichts wenn ich es anklicke...
Bild

Betrifft: AW: Makro an Menü zuweisen
von: Reinhard
Geschrieben am: 02.03.2005 16:19:32
Hi Thomas,
so tut sich was *g
Musst halt rumexperimentieren mit der referenzierung.

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 ActiveMenuBar.Menus("Arbeitszeit").MenuItems(1)
.Caption = "Versand XXXXXXn Verwaltung"
.OnAction = "Arbeitszeit"
End With
End Sub


Sub Arbeitszeit()
MsgBox "huhu"
End Sub

Gruß
Reinhard
Bild

Betrifft: AW: Makro an Menü zuweisen
von: Prickartz
Geschrieben am: 02.03.2005 16:27:36
Hallo Reinhard,
vielen Dank, jetzt funktioniert es - ich habe zwar keine Ahnung, warum es bei mir davor nicht geklappt hat, aber auch egal.
Thomas
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro an Menü zuweisen"