Hallo! Mein Problem ist die letzte Zeile der Sub:
Dim cmdBar As CommandBar
Dim mWissensartikel As CommandBarPopup
Dim mNeuerEintrag As CommandBarButton
Sub MenueLeiste
Set cmdBar = CommandBars.Add("meineLeiste", msoBarPopup, , True)
Set mWissensartikel = cmdBar.Controls.Add(msoControlPopup)
mWissensartikel.Caption = "&Wissensartikel"
Set mNeuerEintrag = mWissensartikel.Controls.Add (msoControlButton)
mNeuerEintrag.Caption = "&NeuerEintrag"
' Das funktioniert
mNeuerEintrag.OnAction = "=MsgBox(""Menuepunkt neuerEintrag"")"
' Das funktioniert nicht
mNeuerEintrag.OnAction = "=Meine_Sub()"
End Sub
Wie geht's?
Schon mal besten Dank!
Gruß
Jürgen
Jürgen124
