ich habe eine Combobox, die mir nur Text aus gibt. Ist es möglich die Box so zu ändern das sie Zahlen anstat Text ausgibt?
z.B Rechnung = 1 usw.
Danke für eure Hilfe
Thomas
Private Sub ComboBox1_Change()
If (Me.ComboBox1.ListIndex <> -1) Then
Me.TextBox1.Text = Me.ComboBox1.Value
End If
End Sub
Private Sub UserForm_Initialize()
Dim Arr(1 To 3, 1 To 2)
Arr(1, 1) = "Thomas"
Arr(1, 2) = 1
Arr(2, 1) = "Markus"
Arr(2, 2) = 2
Arr(3, 1) = "Jan"
Arr(3, 2) = 3
With Me.ComboBox1
.ColumnWidths = ";0"
.ColumnCount = 2
.BoundColumn = 2
.List = Arr
End With
End Sub