Thema: Schaltflächen-Id-Nummer finden und Schaltfläche einfügen

Home

Gruppe

Menue

Problem

Wie kann ich die Id-Nummer der Zielwertsuche-Schaltfläche herausfinden und diese Schaltfläche in eine eigene Symbolleiste integrieren?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Call Loeschen
End Sub

StandardModule: basMain

Sub ZielWertSuche()
   Dim oBar As CommandBar
   Dim oCntr As CommandBarControl
   Call Loeschen
   Set oBar = CommandBars.Add("ZielWert")
   Set oCntr = oBar.Controls.Add(ID:=856)
   oBar.Visible = True
End Sub

Sub Loeschen()
   On Error GoTo ERRORHANDLER
   CommandBars("ZielWert").Delete
ERRORHANDLER:
End Sub

Beiträge aus dem Excel-Forum zu den Themen Menue und Button

VBA E-Mail mit Button und Bedingungen	Zeilen mit Button verschieben, mit Einschränkungen
Excel Form Kontextmenue geht nicht	Rechteck per Button in andere Datei einfügen.
Option Button Wert aus Tabelle (x)	OptionButton zur Auswahl
Button in UserForm soll CSV in neuer Instanz öffne	Userform Toggle Button rücksetzen
Alle Buttons ausblenden	Optionbutton zweimal klicken
Welcher Button wurde geklickt?	Button als gelesen markiert ??
WebBrowser und CommandButton	Button für Seite einrichten
Reiter in Multipage als Commandbutton	Userform - CommandButton per Code löschen
Button für Makro in Taskleiste	Button zum Ausdrucken
Info-Button in Excel-Tabelle einfügen	Hyperlink als Button
Button automatisch deaktivieren	Spinbutton in UF und Textbox
Button zum aktuellen Datum	CommandButton nicht mit ausdrucken
Mehrere Buttons über ToggleButton aufrufen	Command Button
Wenn Zelle grau dann UF CButton Enabled = False	Modul starten per CommandButton ?!
Zellen Kontextmenue ausfuehren	Toggle Button gleich nach Öffnung aktivieren
Druckbefehl hinter CommandButton festlegen?	Seitenumbrüche unter Druck-Command Button ...
Wenn Button vorhanden, dann	Commandbutton verschieben
Button klicken=>Aktion nach einer bestimmten Zeit	Button ein-/ausblenden bei bestimmten Bedingungen
Wurde Optionbutton in Frame gewählt?	Dynamisches Kontextmenue
ComboBox mit CommandButton verknüpfen	Ein Button - zwei funktionen
CommandButton Code zur laufzeit erstellen	Buttons - Makros
Button drücken während Zelleingabe	Daten per button in tabelle2 schreiben
Button 1+,1-	Mit Button in Excel Prozess auslösen
Makro per Button Starten/Beenden	Makro für Pulldown Menue
Mauszeiger auf CommandButton	Zeilen ausblenden über Button