Entschuldigen - wofür?
Lösgelöst von Deiner Projektdatei.
Eine schnörkellose Lösung könnte wie folgt aussehen:
Erstelle eine neue Datei.
Zeichne eine UserForm.
Zeichen eine ComboBox.
Zeichne eine Textbox.
Schreibe Werte in A1:B5
Hinterlege folgende Code an der richtigen Stelle:
Private Sub ComboBox1_Change()
Me.TextBox1.Value = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.ColumnCount = 2
.ColumnWidths = "50pt;0pt"
.List = Range("A1:B5").Value
End With
End Sub
|