Goedemiddag,
Ben momenteel bezig met een Userform.
Ik heb een textbox weg gehaald en daar voor in de plaats een combobox gezet.
Nu geeft die alleen een foutmelding op deze regel, omdat textbox nu combobox is geworden, maar als ik dit wijzig, doet die al helemaal niks.
Controls("textbox" & a + 1) = ListBox1.Column(a)
dit is de hele code voor het tonen van de listbox;
Weet iemand hoe ik dit moet wijzigen?
bvd
Ben momenteel bezig met een Userform.
Ik heb een textbox weg gehaald en daar voor in de plaats een combobox gezet.
Nu geeft die alleen een foutmelding op deze regel, omdat textbox nu combobox is geworden, maar als ik dit wijzig, doet die al helemaal niks.
Controls("textbox" & a + 1) = ListBox1.Column(a)
dit is de hele code voor het tonen van de listbox;
Code:
Private Sub ListBox1_Click()
Dim say As Long
For a = 0 To 6
Controls("textbox" & a + 1) = ListBox1.Column(a)
Next
TextBox8 = ListBox1.Column(7)
Sheets("liste").Range("B:B").Find(What:=ListBox1.Value, LookIn:=xlValues, LookAt:=xlWhole).Activate
say = ActiveCell.Row
Sheets("liste").Range("A" & say & ":I" & say).Select
CommandButton1.Enabled = False
CommandButton2.Enabled = True
CommandButton3.Enabled = True
End Sub
Weet iemand hoe ik dit moet wijzigen?
bvd