Combobox in userform

[tomkruizinga]

[ATTACH=CONFIG]334809[/ATTACH]

Hallo,

In mijn vorige vraag heb ik geen bestand kunnen opsturen.
Dit is dus dezelfde vraag maar dan in een andere opzet.
Zodra er in de combobox (in bestand combobox2 een artikelnummer wordt uitgezocht werkt de formule ( 2x tekstboxen "textbox3+4" tekst geven die in een ander tabblad staan) naar behoren.
Nu is het probleem dat het zo'n 1000 regels zijn, ofwel ik wil het artikelnummer kunnen typen, maar zodra ik dat doe geeft hij niet de juiste informatie.
Kan iemand mij hierbij helpen?

Private Sub ComboBox2_Change()
TextBox4 = Sheets("lijst1").Cells(ComboBox2.ListIndex + 2, 2)
TextBox3 = Sheets("lijst1").Cells(ComboBox2.ListIndex + 2, 3)
End Sub

Alvast bedankt,
Met vriendelijke groet;
Tom Kruizinga

[VenA]

Waarom de gegevens in het blad opzoeken als ze al in de combobox staan?

Private Sub ComboBox2_Change()
  TextBox4 = ComboBox2.Column(1)
  TextBox3 = ComboBox2.Column(2)
End Sub

[tomkruizinga]

Hoi, VenA

Ik krijg nu de volgende foutmelding:
Fout381 tijdens uitvoering.
kan de eigenschap colomn niet verkrijgen.
Ongeldige index voor eigenschapmatrix.

?

Moet ik nog iets aanpassen..

[VenA]

In het bestand in #1?

[snb]

Private Sub ComboBox2_Change()
  if combobox2.listindex>-1 then
    TextBox4 = ComboBox2.Column(1)
    TextBox3 = ComboBox2.Column(2)
 end if
End Sub

[tomkruizinga]

werkt helaas nog niet..

[Jack Nouws]

Is dit de bedoeling?

[VenA]

werkt helaas nog niet..

is niet echt informatief.

[tomkruizinga]

Hoi, JACK NOUWS
Bijna krijg nu alleen een foutmelding bij het toevoegen van de gegevens nl:

Private Sub tvg_Click()

  If Trim(Me.TextBox4.Value) = "" Then
    Me.TextBox4.SetFocus
    MsgBox "Gegevens invullen"
  Exit Sub
  End If
 
  arr = Array(ComboBox2.Value, TextBox2.Value, TextBox3.Value, TextBox4.Value, ComboBox1.Value, CDate(TextBox5), ComboBox3.Value, CDate(TextBox6))

  Sheets("Overvoorraad lijst").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 8) = arr
    
  MsgBox "Gegevens zijn verwerkt", vbOKOnly + vbInformation, "Gegevens zijn verwerkt"
 
End Sub

De functie van de combobox werkt nu wel zoals ik hem graag wil hebben dankjewel
En is het ook mogelijk om na het toevoegen de tekstboxen weer leeg te maken, zodat ik een hele reeds kan doen?

Groet Tom

[ExcelAmateur]

Ik denk dat je het leeg maken zelf wel had kunnen bedenken.
Vergeet ook niet je vragen als opgelost te zetten, als je tevreden ben.
Kijk of het zo goed is.

[emields]

textboxen leeg, kalender verbergen en focus verzet