Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

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

Gruppe

Button

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