Untermenü im Untermenü Menüleiste
Conrad
Ich hab einen zusätzlichen Unterpunkt in der Menüleiste hinzugefügt. Dieser nennt sich im Beispiel "Ergebnisse". Dazu gibt es dann Untermenüs, z. B. "Prüfung" und "Test". Nunmehr würde ich diese mit weiteren Untermenüs versehen, also zum Untermenü "Prüfung" die weiterführenden Menüpunkte "Prüfung1" und "Prüfung2" etc. Wie genau das geht, daran hapert es. Könnt Ihr mir da helfen? Anbei mal der Code, mit dem ich den Anfang erreicht habe.
Sub Auto_Open()
Set ML = Application.CommandBars("Worksheet Menu Bar")
Set U1 = ML.Controls.Add(Type:=msoControlPopup, before:=10)
U1.Caption = "&Ergebnisse"
U1.Tag = "MeinMenü"
Set Punkt = U1.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "Prüfung"
.OnAction = "Prüfung"
.Style = msoButtonIconAndCaption
.FaceId = 2103
End With
Set Punkt = U1.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&Test"
.OnAction = "Test"
.Style = msoButtonIconAndCaption
.FaceId = 2103
End With
Sub Auto_Close()
Set ML = Application.CommandBars("Worksheet Menu Bar")
On Error Resume Next ' Fehlerbehandlung
ML.FindControl(Tag:="MeinMenü").Delete
End Sub
Für Eure Hilfe wäre ich sehr dankbar.
Liebe Grüße
Conrad
Anzeige