Ich befülle ein Array in 2 Dimensionen in abhängigkeit von der Größe mit der zugehörigen Bohrung und dem Naben-Ø des Teils.
Allerdings wird mir in der Combobox immer ein Scrollbalken dargestellt um in einen nachfolgenden (leeren) Bereich zu scrollen.
Was wird da befüllt? Würde das ganze gern ohne .addItem lösen...
Danke, Gruß, Marc
Dim Bohrung_arr_T1(4, 2)
Dim Bohrung_arr_T2(4, 2)
For X = 2 To 40
If Cells(X, 1) = cmb_Grösse * 1 Then
Bohrung_arr_T1(i, 0) = Cells(X, a)
Bohrung_arr_T1(i, 1) = Cells(X, b)
Bohrung_arr_T2(i, 0) = Cells(X, c)
Bohrung_arr_T2(i, 1) = Cells(X, d)
i = i + 1
End If
Next X
With cmb_Nb_T1
.Visible = True
.Clear
.ListRows = i
.List() = Bohrung_arr_T1
.Value = .List(0)
Nb_Ø_T1 = .List(0)
Bohrung_STD_T1 = .List(0, 1)
End With