VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

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

Gruppe

Menue

Bereich

Button

Thema

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

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