Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Sprache von ComboBox-Listen nach Sprachauswahl festlegen

Gruppe

ComboBox

Problem

Die Sprachinhalte einer ComboBox sollen über eine weitere ComboBox festgelegt werden.

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

ClassModule: frmLanguage

Private Sub cboLanguage_Change()
   With cboMonths
      .List = Range("A1").CurrentRegion.Columns(cboLanguage.ListIndex + 1).Value
      .ListIndex = 0
   End With
End Sub

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim arr As Variant
   arr = Array("Deutsch", "Englisch", "Französisch", "Italienisch", "Spanisch")
   With cboLanguage
      .List = arr
      .ListIndex = 0
   End With
End Sub
StandardModule: Modul1

Sub CallForm()
   frmLanguage.Show
End Sub