Mal wieder...Untermenü eines eigenen Menüs erstel.

Hallo zusammen,
wie ich durch die Suchfunktion rausgefunden habe, bin ich nicht der einzige, der dieses Problem hat(te). Leider hab ich die gefundenen Beispiele aufgrund meiner minimalen VBA-Kenntnisse nicht wirklich verstanden. Daher bitte ich Euch, darauf Rücksicht zu nehmen und es für mich "idiotensicher" zu formulieren ;-)
Ich möchte in der Menüleiste ein eigenes Menü erstellen, das verschiedene Untermenüs enthält. Der Anfang ist auf jeden Fall geschafft und funktioniert auch:
MenuBars(xlWorksheet).Menus.Add Caption:="Mein Menü", Before:="Help"
MenuBars(xlWorksheet).Menus("Mein Menü").MenuItems.Add _
Caption:="1. Menüpunkt", OnAction:=""
Jetzt möchte ich aber in den Punkt "1. Menüpunkt" weitere Untermenüpunkte einbauen, aber daran bin ich kläglich gescheitert. Dürfte für Euch nicht so schwer sein, oder? :)
Vielen Dank in voraus und Gruß,
Manuel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

das Prinzip ist doch immer das gleiche!


Sub Menü_einfügen()
Dim NeuesMenue As CommandBarControl, St As CommandBarButton, Pop1 As CommandBarPopup
Dim Pop2 As CommandBarPopup, Pop3 As CommandBarPopup
On Error Resume Next
CommandBars.ActiveMenuBar.Controls("MeinMenü").Delete
On Error GoTo 0
Set NeuesMenue = CommandBars.ActiveMenuBar.Controls.Add _
(Type:=msoControlPopup, Temporary:=True)
With NeuesMenue
.Caption = "MeinMenü"
End With
Set Pop1 = NeuesMenue.Controls.Add(Type:=msoControlPopup)
Pop1.Caption = "MeineMakros 1"
Set Pop2 = Pop1.Controls.Add(Type:=msoControlPopup)
Pop2.Caption = "Rubrik1"
Set Pop3 = Pop2.Controls.Add(Type:=msoControlPopup)
Pop3.Caption = "Rubrik 1.1"
Set St = Pop3.Controls.Add(Type:=msoControlButton, ID:=1)
With St
.Caption = "Makro 1"
.Style = msoButtonCaption
.OnAction = "Makro_1"
End With
Set St = Pop3.Controls.Add(Type:=msoControlButton, ID:=1)
With St
.Caption = "Makro 2"
.Style = msoButtonCaption
.OnAction = "Makro_2"
End With
Set Pop3 = Pop2.Controls.Add(Type:=msoControlPopup)
Pop3.Caption = "Rubrik 1.1"
Set St = Pop3.Controls.Add(Type:=msoControlButton, ID:=1)
With St
.Caption = "Makro 1"
.Style = msoButtonCaption
.OnAction = "Makro_1"
End With
Set St = Pop3.Controls.Add(Type:=msoControlButton, ID:=1)
With St
.Caption = "Makro 2"
.Style = msoButtonCaption
.OnAction = "Makro_2"
End With
Set Pop2 = Pop1.Controls.Add(Type:=msoControlPopup)
Pop2.Caption = "Rubrik2"
Set St = Pop2.Controls.Add(Type:=msoControlButton, ID:=1)
With St
.Caption = "Makro 2.1"
.Style = msoButtonCaption
.OnAction = "Makro_2_1"
End With
Set St = Pop2.Controls.Add(Type:=msoControlButton, ID:=1)
With St
.Caption = "Makro 2.2"
.Style = msoButtonCaption
.OnAction = "Makro_2_2"
End With
Set St = Pop1.Controls.Add(Type:=msoControlButton, ID:=1)
With St
.Caption = "Makro 3"
.Style = msoButtonCaption
.OnAction = "Makro_3"
End With
Set St = NeuesMenue.Controls.Add(Type:=msoControlButton, ID:=1)
With St
.Caption = "Makro 4"
.Style = msoButtonCaption
.OnAction = "Makro_3"
End With
'und so weiter und so fort
End Sub

Beliebteste Forumthreads (12 Monate)

Mal wieder...Untermenü eines eigenen Menüs erstel.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mal wieder...Untermenü eines eigenen Menüs erstel.

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread