Supportnet / Forum / Tabellenkalkulation
Excel 2003 Makro in EXTRAS
Frage
Hallo zusammen,
habe auf folgende Frage (unter XP) keine Hilfe bekommen; deshalb nochmals hier:
Ich möchte in Excel 2003 ein selbst erstelltes Makro im Menü EXTRAS angezeigt sehen. Obwohl ich das schon vor einigen Monaten gemacht habe, finde ich nicht mehr die Lösung, trotz Google. Weiß jemand Bescheid?
Ich habe so was vor einigen Monaten schon durchgeführt, fällt mir beim besten Willen nicht mehr ein, trotz Suche in Google.
Das Schreiben des Makros gelingt, aber nicht die Anzeige unter EXTRAS.
Danke für Hilfe oder Hinweise.
Antwort 1 von Hajo_Zi
Hallo Nick,
das Makro wäre schon nicht schlech!
Lösche das Wort Private?
Lösche Option Private Module ?
Gruß Hajo
das Makro wäre schon nicht schlech!
Lösche das Wort Private?
Lösche Option Private Module ?
Gruß Hajo
Antwort 2 von KOK
Hallo Altweibersommer,
versuche es mal hiermit ..............
versuche es mal hiermit ..............
Option Explicit
Private Const c_MENUBUTTON_NAME = "Testanzeige"
Public Sub Auto_Open()
'Startroutine des Add-In:
' 1) Menu-Eintrag erstellen
Dim myMenuBar As Office.CommandBarPopup
Dim myMenuButton As Office.CommandBarButton
On Error Resume Next
'Im Hauptmenue 'Extras' finden
Set myMenuBar = Application.CommandBars(1).FindControl(, 30007)
'Button anfügen
Set myMenuButton = myMenuBar.Controls.Add(msoControlButton)
'Button benennen
myMenuButton.Caption = c_MENUBUTTON_NAME
myMenuButton.BeginGroup = True
'Button mit Hauptprogramm verknüpfen
myMenuButton.OnAction = ThisWorkbook.Name & "!" & "Testanzeige"
Set myMenuButton = Nothing: Set myMenuBar = Nothing
On Error GoTo 0
End Sub
Public Sub Auto_Close()
'Enderoutine des Add-In:
' 1) Menu-Eintrag löschen
Dim myMenuBar As Office.CommandBarPopup
On Error Resume Next
'Im Hauptmenue 'Extras' finden
Set myMenuBar = Application.CommandBars(1).FindControl(, 30007)
'Button löschen
myMenuBar.Controls(c_MENUBUTTON_NAME).Delete
Set myMenuBar = Nothing
On Error GoTo 0
End Sub
Public Sub Testanzeige()
End Sub