Gruppe
Dialog
Problem
Die Sprachinhalte einer ComboBox sollen über eine weitere ComboBox festgelegt werden.
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