begræns valg af antal

Hvis vi forudsætter at den første dropdown (her: Kombinationsfelt0) indeholder data i to kolonner i stil med

  aaa;10
  bbb;15
  ccc;0

vil koden sådan rent principielt kunne så således ud:

Private Sub Kombinationsfelt0_AfterUpdate()
  Dim i As Integer
 
  Me.Kombinationsfelt2.RowSource = ""

  If Me.Kombinationsfelt0.Column(1) = 0 Then
    Me.Kombinationsfelt2 = 0
  Else
    Me.Kombinationsfelt2 = Null
    For i = 1 To Me.Kombinationsfelt0.Column(1)
      Me.Kombinationsfelt2.AddItem i
    Next i
  End If
End Sub

Endte med en anden løsning, men markerer forslaget som løsning alligevel :)