Gruppe
Dialog
Problem
Wie kann ich eine zweite ComboBox in einer UserForm in Abhängigkeit der Auswahl in der ersten ComboBox bestücken lassen? Wenn in der 1. Box A gewählt wird, sollen in der 2. C und D zur Auswahl stehen, bei B in der 1. D und E in der zweiten usw.
ClassModule: frmBedingt
Private Sub cboa_Change()
With cbob
.Clear
If cboa.ListIndex < 25 Then
.AddItem Chr(cboa.ListIndex + 67)
.AddItem Chr(cboa.ListIndex + 68)
.ListIndex = 0
End If
End With
End Sub
Private Sub cmdContinue_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim iCounter As Integer
For iCounter = 1 To 26
cboa.AddItem Chr(iCounter + 64)
Next iCounter
cboa.ListIndex = 0
End Sub
StandardModule: basMain
Sub CallForm()
frmBedingt.Show
End Sub