XLA-Menü-Fehler
17.04.2014 16:32:04
HaWe
habe mal wieder ein Problem mit XLA-Dateien (alles Add-ins, die ca. 2004-2006 entwickelt wurden), die alle schon einmal unter Exxcel 2010 gelaufen sind:
Das Problem besteht mit dem Befehl zum Löschen einer Menüleiste - dieses Problem ist in allen Add-Ins vorhanden, der Befehl menu.Controls("&FaceIdViewer").Delete im folgenden Code verursacht den Fehler "Laufzeitfehler 5: Ungültiger Prozeduraufruf oder ...."
Es ist auch in anderen Add-Ins so, dass der Versuch, eine Menüleiste zu löschen (egal unter welchem Namen), immer diesen Fehler produziert. Der Fehler tritt schon beim ersten Start auf, wenn die Menüleiste noch gar nicht existiert.
Andere Benutzer-Menüs sind schon vorhanden.
Die jetzt fehlerhaft laufenden Add-Ins haben alle schon einmal funktioniert.
Sub delete_from_menu()
Dim menu As CommandBarPopup
Dim cbarbutton As CommandBarButton
On Error Resume Next
Set menu = CommandBars("Worksheet Menu Bar").FindControl(Type:=msoControlPopup, ID:=30007) ' _
find Tools menu
menu.Controls("&FaceIdViewer").Delete
Set menu = CommandBars("Worksheet Menu Bar").Controls(1) 'in case no Tools menu delete from _
first menu
menu.Controls("&FaceIdViewer").Delete
On Error GoTo 0
End Sub
Habt Ihr einen Tip, wo ich "schrauben" muss, damit das wieder geht?
Danke und Gruß
Hans-Werner