online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon woher vom 30.08.2019, 10:04 Options

Neuen Menüpunkt zum ausführen eines Makros erstellen

Hallo,
wir haben hier von unserem Buchhaltungssoftware-Hersteller eine .xla-Datei zur Verfügung gestellt bekommen, die ich bei mir als Add-in installiert habe. Beim Excel-Start wird ein neues Menü erzeugt, dem ein Befehl eingefügt und diesem das Makro zugeordnet, das gelegentlich gebraucht wird.
Welchen Sinn macht es, ein neues Menü bei jedem Excel-Start zu erzeugen und beim Schließen wieder zu löschen? Ich würde lieber dem Menü Extras o.g. Befehl einfügen, der das Makro startet. Kann ich folgendes Makro entsprechend verändern?
Oder kann mir jemand ein ganz neues Makro erstellen?

Option Explicit

Sub SNeuesMenueEinfügen()
Dim i As Integer
Dim i_Hilfe As Integer
Dim MenüNeu As CommandBarControl
Dim MB As CommandBarControl


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)

MenüNeu.Caption = "Simba-EXCEL"
'-------------------------------------
Set MB = MenüNeu.Controls.Add _
(Type:=msoControlButton)
With MB
.Caption = "WandelSimbaEXCEL"
.Style = msoButtonCaption
.OnAction = "WandelSimbaEXCEL"
End With
End Sub

mfg + vielen Dank im voraus
Wolfgang H.


Antwort schreiben

Ähnliche Themen

Administratorkennwort vergessen
rfb  17.09.2007 - 26626 Hits - 7 Antworten

zwei Makros mit einer Schaltfläche ausführen.
bokap1975  15.08.2007 - 16 Hits - 8 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Mon Jan 26 07:32:25 2026