Controls functie voor Checkbox

Status
Niet open voor verdere reacties.

Jeffie85

Gebruiker
Lid geworden
12 jun 2012
Berichten
106
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;

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
 
Als je zegt een foutmelding te krijgen vertel deze er dan ook bij.
 
Excuus;
de foutmelding is

fout - 2147024809 (80070057) tijdens uitvoering:
Kan het opgegeven object niet vinden
 
Code:
me("textbox" & a + 1)
Anders een bestand plaatsen (geen plaatjes).
 
Kun je hem zo openen?

Dus als je data ophaalt in de listbox, en je wilt dit bijvoorbeeld laden in de velden, dan geeft die de foutmelding.

Bedankt alvast !

Bekijk bijlage kopie.xls
 
Laatst bewerkt:
Je hebt in het userform geen textbox1 staan.
 
Dan heb je dus de verklaring voor de foutmelding. Het oplossen zal dan ook niet zo heel moeilijk zijn.
 
Je hebt een lus van:
Code:
For a = 0 To 8
Controls("textbox" & a + 1) = ""
Next

Textbox 1, 5 en 7 ontbreken.
Dat gaat dus niet werken.
 
Hoe kan ik dan de info tonen in de vakken in combinatie van textboxen en comboboxen?
of gaat dat gewoon niet?
 
Heb het nu gewoon opgelost om de 3 regels eruit te slopen

for a = 0 to 8
controls......
Next

Voorlopig is het nu wel even goed.

bedankt in ieder geval voor het meedenken !!
wordt gewaardeerd
 
Je kan ze hernoemen naar 1 t/m 5, en dan die lus gebruiken.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan