Menüleisteneinträge Gruppieren u. Aublenden

Sub Menue_ein()
Application.ScreenUpdating = False
Application.DisplayFullScreen = True
Application.WindowState = xlMaximized
Application.ShortcutMenus(xlDesktop).Enabled = False
Application.ShortcutMenus(xlTitleBar).Enabled = False
Set ML = Application.CommandBars("Worksheet Menu Bar")
' Name für neues Menü anlegen
Set U1 = ML.Controls.Add(Type:=msoControlPopup, Before:=1) 'Before:=10)
U1.Caption = "Bearbeiten"
U1.Tag = "MeinMenü" ' dient zur eindeutigen Identifizierung des Menüs
'    1. Menüpunkt anlegen
'    Set Punkt = U1.Controls.Add(Type:=msoControlPopup)
Set Punkt = U1.Controls.Add(Type:=msoControlPopup)
With Punkt
.Caption = "Dienst auswählen"
End With
Set U2 = Punkt ' Variable für das 2. Untermenü wird gesetzt
' Neuer Menüeintrag im 2.Untermenü
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "Außendienst"
.OnAction = "AD"
End With
Set Punkt = U2.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "Innendienst"
.OnAction = "ID"
End With
End Sub