Hozzászólás: [Resolved] Kijelölt elem törlése Comboboxban

sikerült megoldanom, egy temp szöveg segítségével:
Private Sub ComboBox1_Change()
Dim temp As String
Dim i As Long
Dim j As Long

Application.EnableEvents = False

Dim myarr As Variant

‘selected = Me.ComboBox1.ListIndex
TextBox1 = ComboBox1.List(ComboBox1.ListIndex)

For i = 0 To ComboBox1.ListCount – 1
temp = temp & „;” & ComboBox1.List(i)
Next
ReDim myarr(ComboBox1.ListCount – 1)
temp = TextBox1 & „;” & Replace(temp, TextBox1, „”)
temp = Replace(temp, „;;”, „;”)
myarr = Split(temp, „;”)

For j = 0 To 2 ‘UBound(myarr) ‘valamiért ubound-1-nél kilép
Me.ComboBox1.List(j) = myarr(j)
Next
ComboBox1 = „”
Application.EnableEvents = True

TextBox1.SetFocus
End Sub