Private Sub UserForm_Initialize()
cboWerte.List = Range("A1").CurrentRegion.Value
cboWerte.Value = cboWerte.List(0, 1)
End Sub
Private Sub cboWerte_Change()
If cboWerte.ListIndex > -1 Then
cboWerte.Value = cboWerte.List(cboWerte.ListIndex, 1)
End If
End Sub
Private Sub cmdWeiter_Click()
MsgBox cboWerte.Value
Unload Me
End Sub