HERBERS Excel-Forum - die Beispiele

Thema: Geöffete Arbeitsmappen in Menü-ComboBox listen

Home

Gruppe

Menue

Problem

Die aktuell geöffneten Arbeitsmappen sollen in einer CommandBar-ComboBox in der Arbeitsblattmenüleiste zum Zweck der Auswahl gelistet werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
ClassModule: DieseArbeitsmappe

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

Private Sub Workbook_Open()
   Call NeuEinlesen
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
   Call NeuEinlesen
End Sub

StandardModule: basMain

Sub NeuEinlesen()
   Dim oCbo As CommandBarComboBox
   Dim wkb As Workbook
   Call CmdDelete
   Set oCbo = Application.CommandBars("Worksheet Menu Bar") _
      .Controls.Add(msoControlComboBox)
   With oCbo
      .Caption = "Mappen"
      For Each wkb In Workbooks
         .AddItem wkb.Name
         .OnAction = "BlattAuswahl"
      Next wkb
      .Text = ActiveWindow.Caption
   End With
End Sub

Sub BlattAuswahl()
   Application.EnableEvents = False
   Windows(Application.CommandBars(1) _
      .Controls("Mappen").Text).Activate
   Application.EnableEvents = True
End Sub

Sub CmdDelete()
   On Error GoTo ERRORHANDLER
   Application.CommandBars("Worksheet Menu Bar") _
      .Controls("Mappen").Delete
ERRORHANDLER:
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