Sub FreieComboBox()
With frmMehrspaltig
With .cboColumns
.List = Range("A1").CurrentRegion.Value
.ListIndex = 0
End With
.Show
End With
End Sub
Sub GebundeneComboBox()
With frmMehrspaltig
With .cboColumns
.RowSource = _
ActiveSheet.Name & "!" & Range("A1") _
.CurrentRegion.Address
.ListIndex = 0
End With
.Show
End With
End Sub
Private Sub cmdValues_Click()
Dim iCounter As Integer
Dim sMsg As String
For iCounter = 0 To 2
With cboColumns
sMsg = sMsg & "Spalte " & iCounter + 1 & ": " & _
.List(.ListIndex, iCounter) & vbLf
End With
Next iCounter
MsgBox sMsg
End Sub