Supportnet Computer
Planet of Tech

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

Antwort 2 von KOK

Hallo Altweibersommer,

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


Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: