Thema: Beim Öffnen der Arbeitsmappe Menü-ComboBoxes anlegen

Home

Gruppe

Menue

Problem

Beim Öffnen der Arbeitsmappe sollen in der Arbeitsblatt-Menüleiste zwei ComboBoxes mit den Inhalten der Spalten A:B angelegt werden.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   On Error Resume Next
   With Application.CommandBars("Worksheet Menu Bar")
      .Controls("Gruppe 1").Delete
      .Controls("Gruppe 2").Delete
   End With
End Sub

Private Sub Workbook_Open()
   Dim oBar As CommandBar
   Dim oCbo As CommandBarComboBox
   Dim iCounter As Integer, iCol As Integer
   Set oBar = Application.CommandBars("Worksheet Menu Bar")
   On Error Resume Next
   oBar.Controls("Gruppe 1").Delete
   oBar.Controls("Gruppe 2").Delete
   On Error GoTo 0
   With oCbo
      For iCol = 1 To 2
         Set oCbo = oBar.Controls.Add(msoControlComboBox)
         oCbo.Caption = "Gruppe " & iCol
         For iCounter = 2 To 11
            oCbo.AddItem Cells(iCounter, iCol).Value
            oCbo.TooltipText = Cells(1, iCol).Value
         Next iCounter
         oCbo.ListIndex = 1
      Next iCol
   End With
   
End Sub

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

mit combobox sortieren	Excel Form Kontextmenue geht nicht
Combobox Zeile in Array übernehmen	UserForm TextBox mit ComboBox Datum vergleichen
Dynamische Combobox ?	Zelleneingabe nur per Combobox erlauben
ComboBox	Combobox zurücksetzen
ComboBOx	ComboBox
sverweis auf combobox	FILTER; COMBOBOX
Sortierung in ComboBox zweispaltig erfolgt falsch	Combobox, CheckBox, TextBox Formatierung
Formatierung Dezimalzahlen bei Combobox-Eingaben	Dynamische Comboboxen anpassen
Combobox mit Auswahl	ComboBox
Überlauf bei Befüllen einer ComboBox	In zwei ComboBox die gleiche Spalte einlesen
ComboBox Eintragen	transponieren mit combobox
combobox mit tabelleninhalt??	Zellen Kontextmenue ausfuehren
ComboBox mit Hyperlink	Combobox füllen
in jeder angeklickte Zelle Auswahl durch Combobox	Dynamisches Kontextmenue
Mehrspaltige Combobox füllen	Breite einer Combobox beim öffnen definieren
Daten in Combobox einlesen bzw. andere Ausgabe	ComboBox mit CommandButton verknüpfen
Datum ohne Doppelte in ComboBox einlesen	mehrere Comboboxen
Verküpfung zwei verschiedener ComboBoxen	verknüpfung von zwei verschiedenen ComboBoxen
ComboBox	mehrspaltige Combobox
Suche in ListBox-Ausgabe ComboBox	Text für ComboBox hinterlegen
2.Eintrag aus ComboBox in aktive Zelle	berechnen mit Combobox
Textbox abhängig von Combobox- Bin ich zu dumm?	ComboBoxDaten in Abhängigkeit filtern o. Userform
Makro für Pulldown Menue	3 ComboBoxen in UserForm -FEHLER-
Nach Auswahl in ComboBox zwei Werte nebeneinander	Kein Change in Combobox erlauben(wenn false)
Formular: Combobox clear	Combobox sortieren