Gruppe
Dialog
Bereich
ComboBox
Thema
Bei einer mehrspaltigen ComboBox Wert aus Spalte 2 als Startwert
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?
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
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