Hallo
ich gehe davon aus, dass sich die Combobox in einem Tabellenblatt befindet
Entwicklertools --> Entwurfsmodus --> Eigenschaften
die Combobox anklicken und in dem Eigenschaftenfenster die ColumnCount auf 2 ändern
die Combobox z.B. füllen mit ComboboxListfillrange = Tabelle1!A1:B3 oder wo sonst auch immer die Daten stehen
bei ColumnWidths gibst du Breite der ComboSpalten an, in meinem Test 50,0
wenn das fertig ist dann
Entwicklertools --> Entwurfsmodus
danach in den Editor wechseln
doppelklick links auf den Tabellennamen in der die Combobo ist
und dort diesen Code
Private Sub ComboBox1_Change()
Dim lngWert As Long
With ComboBox1
lngWert = .List(.ListIndex, 1)
End With
MsgBox lngWert
End Sub
damit wird dann in einer Messagebox der zu dem Namen gehörige Wert ausgegeben
oder der Wert der Variablen kann entsprechend weiter verarbeitet werden
|