soeben habe ich das Problem dank Hilfe für eine 2Spaltige ComboBox gelöst. Wie erreiche ich nun, dass die Werte der 2. Spalten ausgeliefert werden? Lieben Dank für Hilfe
With Box1a
.ColumnCount = 2
.Style = fmStyleDropDownCombobox
.Clear
For i = 2 To LoLetzte
.AddItem ""
.List(.ListCount - 1, 1) = Worksheets("Materialien").Cells(i, 2)
.List(.ListCount - 1, 0) = Worksheets("Materialien").Cells(i, 1)
Next i
End With