ich habe ein Makro bisher unter Excel 2003 genutzt, welches einen eigens erstellten Menüpunkt hat. Nach Umstieg auf Excel 2013 wird mir dieser Menüpunkt nicht mehr aktiviert und meine Kenntnisse reichen nicht für das anpassen dieses Codes, wer kann mir dabei weiterhelfen!?
Public Sub reserve()
Dim i As Integer
Dim i_hilfe As Integer
Dim menüneu As CommandBarControl
Dim mb As CommandBarControl
Set menüneu = Application.CommandBars(1) _
.FindControl(Tag:="Veranstaltungslogistik-Programme")
If menüneu Is Nothing Then
i = Application.CommandBars(1).Controls.Count
i_hilfe = Application.CommandBars(1).Controls(i).Index
Set menüneu = Application.CommandBars(1).Controls _
.Add(Type:=msoControlPopup, _
before:=i_hilfe, temporary:=True)
With menüneu
.Caption = "Veranstaltungslogistik-Programme"
.Tag = "Veranstaltungslogistik-Programme"
End With
Set mb = menüneu.Controls.Add(Type:=msoControlButton)
With mb
.Caption = "Logistik"
.Style = msoButtonCaption
.OnAction = "prgrstart"
.BeginGroup = True
End With
End If
Set menüneu = Nothing
End Sub