ComboBox füllen
03.11.2005 16:22:40
Gregor
Mit folgendem Code wird die ComboBox Jahrebis gefüllt, wenn in die Box Jahrevon mittels einer Dopdrown-Liste ein Jahr (2005 bis 2030) ausgewählt wird. Der ListIndex Code "26" entspricht der lezten Zeile vom Namen "Jahr". Eigentlich möchte ich aber, dass in Jahrbis das gleiche Jahr übernommen wird, wie in Jahrvon gesetzt wurde. Zum Ändern muss dem User jedoch gleichwohl die Dopdrown-Liste "Jahr" zur Verfügung stehen. Ist das irgendwie möglich? Wie finde ich die markierte Position in der Dropdown-Liste für den ListIndex?
'---Change Jahrevon
Private Sub cboJahrevonAlle_Change()
Jahr1 = cboJahrevonAlle.Value
Select Case Jahr1
Case "alle Jahre"
With Me.cboJahrebisAlle
.RowSource = "Jahr"
.ListIndex = "0"
End With
Case Else
With Me.cboJahrebisAlle
.RowSource = "Jahr"
.ListIndex = "26"
End With
End Select
End Sub
Vielen Dank
Gregor