Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei einer mehrspaltigen ComboBox Wert aus Spalte 2 als Startwert

Gruppe

ComboBox

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