Gruppe
Dialog
Problem
Bei einer mehrspaltigen UserForm-ComboBox wird standardmäßig der Wert aus der 1. Spalte des ListIndex angezeigt. Wie kann ich mir beim Aufruf den Wert aus der 2. Spalte anzeigen lassen?
ClassModule: frmZweiteSpalte
Private Sub cmdWeiter_Click()
MsgBox cboWerte.Value
Unload Me
End Sub
Private Sub cboWerte_Change()
If cboWerte.ListIndex > -1 Then
cboWerte.Value = cboWerte.List(cboWerte.ListIndex, 1)
End If
End Sub
Private Sub UserForm_Initialize()
cboWerte.List = Range("A1").CurrentRegion.Value
cboWerte.Value = cboWerte.List(0, 1)
End Sub
StandardModule: basMain
Sub CallForm()
frmZweiteSpalte.Show
End Sub