Thema: ComboBox-Abhängigkeiten

Home

Eine ComboBox soll in Abhängigkeit der Auswahl in einer anderen ComboBox bestückt werden.

Prozedur: cboA_Change
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: ComboBox-Abhängigkeiten
Ablaufbeschreibung:
- Rahmen und das ComboBox-Ojbekt bilden
- ComboBox leeren
- Wenn der ListIndex des ausgewählten Elements der ersten ComboBox unter 25 liegt...
- Der zweiten ComboBox einen ersten Buchstaben zweisen
- Der zweiten ComboBox einen zweiten Buchstaben zweisen

Code:


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