Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

ComboBox2 in Abhängigkeit von ComboBox1 bestücken

Gruppe

ComboBox

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.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

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