Hallo zusammen,
ich habe mir in einer Excel-Datei ein Makro-Tool erstellt. Die Befehle dieses Tools habe ich in einem kleinen Menü in der Menüleiste zusammengefasst. Auf meinem PC funktioniert das auch aber wenn ich das Excel-Tool an einen Kollegen gebe, er es öffnet, dann wird der zusätzliche Menüpunkt nicht in der Menüleiste angezeigt.
Also Code habe ich folgendes verwendet:
Private Sub Workbook_Open()
'Ein Menü erstellen
Dim mymenu
Dim MenuName
MenuName = "EPMeasy"
Application.MenuBars(xlWorksheet).Menus.Add MenuName
Set mymenu = Application.MenuBars(xlWorksheet) _
.Menus(MenuName).MenuItems
With mymenu
.Add "Konfiguration öffnen..."
.Add "Konfiguration speichern unter..."
.Add ... ... ... ... ... ... ... ...
End With
'Menü mit Makros verknüpfen
Dim strCode As String
Dim cbc As Object
Set cbc = Application.MenuBars(xlWorksheet).Menus(MenuName).MenuItems("Konfiguration öffnen...")
cbc.OnAction = "Inhalt_Laden"
Set cbc = Application.MenuBars(xlWorksheet).Menus(MenuName).MenuItems("Konfiguration speichern unter...")
cbc.OnAction = "Inhalt_Speichern"
Set ... ... ... ... ... ... ... ...
End Sub
Kann mir von euch einer einen Tipp geben, warum es nicht auf jedem PC gleich funktioniert?
Grüße,
Mic2004.
cscherwinski
Mic2004
