Thema: Wert in einer CommandBarComboBox verändern

Home

Gruppe

Menue

Problem

Wie kann ich eine Symbolleiste mit einer CommandBarComboBox hinzufügen und dieser als Startwert das aktuelle Datum zuordnen? Der Symbolleiste soll eine weitere Schaltfläche hinzugefügt werden, die auf Mausklick das Datum in der CommandBarComboBox um 1 erhöht.

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 DatumInControl()
   Dim oBar As CommandBar
   Dim oCbo As CommandBarComboBox
   Dim oBtn As CommandBarButton
   Set oBar = CommandBars.Add( _
      Name:="MeineSymbolleiste", _
      Position:=msoBarTop, _
      MenuBar:=False, _
      temporary:=True)
   oBar.Visible = True
   Set oCbo = oBar.Controls.Add(Type:=msoControlComboBox)
   With oCbo
      .Caption = "Datum"
      .AddItem Date
   End With
   Set oBtn = oBar.Controls.Add
   With oBtn
      .FaceId = 36
      .OnAction = "Erhoehen"
      oCbo.ListIndex = 1
   End With
End Sub

Sub Erhoehen()
    With Application.CommandBars("MeineSymbolleiste").Controls("Datum")
        .List(1) = Format(DateValue(.List(1)) + 1, "dd.mm.yy")
    End With
End Sub

Sub Loeschen()
    On Error GoTo ERRORHANDLER
    Application.CommandBars("MeineSymbolleiste").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