将Excel VBA ActiveX ListBox .Selection分配给TextBox

Question

I'm trying to click a selection on an ActiveX ListBox and have value assigned to a TextBox then clear the ListBox. It seems straightforward but I'm getting 'Object doesn't support this property or method' on the first line

This is what I'm using:

Private Sub ListBox1_Click()

    ActiveSheet.OLEObjects("TextBox3").Object.Value = ActiveSheet.OLEObjects("ListBox1").Object.Selection
    ActiveSheet.OLEObjects("ListBox1").Object.Selection = ""

End Sub

Any thoughts on how to make this word or resources to search are appreciated.

Answer 1

Your code would be cleaner written like this:

Private Sub ListBox1_Click()
  TextBox1.Value = ListBox1.Text
  ListBox1.Selected(ListBox1.ListIndex) = False
End Sub

But there is a problem: the second line doesn't work inside the ListBox1_Change event (because it would create an infinite loop). I tried with Application.EnableEvents = False , but it didn't help.

I think you need to put the reset of the selection in another event, like the KeyUp or MouseUp .