wie kann ich in meinen Code unter dem MenüleistenButton Adressverwaltung ein Popupbutton für die Auswahl von Kunden bzw Lieferanten einfügen und diese dann weiter verzweigen wie schon im Code geschrieben ?
Sub MenuErstellen2()
Dim oBar As CommandBar
Dim oPopUp As CommandBarPopup
Dim oBtn As CommandBarButton
On Error Resume Next
Set oBar = Application.CommandBars.Add( _
Name:="MyCommandBar", _
Position:=msoBarTop, _
MenuBar:=True, _
temporary:=True)
Set oPopUp = oBar.Controls.Add(Type:=msoControlPopup)
oPopUp.Caption = "Adressverwaltung"
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Kunde &neuanlegen"
.Style = msoButtonIconAndCaption
.FaceId = 607
.OnAction = "NeuKunde"
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Kundendaten &auswählen"
.Style = msoButtonIconAndCaption
.FaceId = 355
.OnAction = "Kundenverwalten"
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Kundendaten speichern"
.Style = msoButtonIconAndCaption
.FaceId = 2654
End With
End Sub
Danke für eure Hilfe Jens