Hallo Marie,
hier der komplette Code mit dem ich die Menüleiste mit dem Kombifeld angelegt habe.
Wie gesagt es funktioniert alles, nur das beim Öffnen der Datenbank immer das Jahr 2009 angezeigt wird.
----- Code --------
Option Compare Database
Option Explicit
Private cbBar As CommandBar
----------------------------------------------------------------------------
Public Function Anlegen()
'Nur zum Anlegen des Kombifeldes in der Menüleiste !!!
Set cbBar = CommandBars.Add("barTemp", msoBarTop, False, False)
cbBar.Visible = True
Call CreateCommandCboYears(2000, 2019)
End Function
-----------------------------------------------------------------------------
Public Function CreateCommandCboYears(intStartYear As Integer, intEndYear As Integer, _
Optional bolTemporary As Boolean = True)
'Kombinations-Steuerelement mit den Jahren 2000 bis 2019 (wurden Übergeben) anlegen
Dim cbControl As CommandBarControl
Dim cbCombo As CommandBarComboBox
Dim i As Integer
'ComboBox hinzufügen
Set cbCombo = cbBar.Controls.Add(msoControlComboBox)
'Inhalt und Eigenschaften des Steuerelementes
With cbCombo
'Jahre einfügen
For i = intStartYear To intEndYear
.AddItem i
Next i
'Index festlegen
.ListIndex = 0
'Beschriftung und Beschreibung
.Caption = "Jahr wechseln: "
.DescriptionText = "Jahr wechseln"
'Ereignis beim Draufklicken
.OnAction = "=ChangeCommandCboYear()"
'Marke
.Tag = "cboYear"
'Steuerelement-Stil
.Style = msoComboLabel
'angezeigte Zeilen
.DropDownLines = 20
End With
End Function
---- Ende Code ----------------------------------------------
Wie kann ich beim Öffnen der Datenbank in das Kombifeld das aktuelle Jahr zuweisen?
Wie gesagt, der obrige Code wird ja nur einmal zum Erstellen der Menüleiste ausgeführt, dann nie wieder!
Mit freundlichen Gruß
spaceman
