Combobox in userform

[tomkruizinga]

Hallo,

Ik ben e.e.a. aan het versimpelen op het werk en nu heb ik al een mooie opzet.
echter werkt de functie van mijn combobox niet naar gehoren.
als ik type wat er in de combobox moet staan neemt hij de functie va nl: informatie in tekstboxen zetten (deze informatie haalt hij uit een lijst (soort van vert.zoeken) zieUserform_Initialize
als we een artikelnummer vanuit het pijltje van de combobox uitzoeken werkt deze functie wel naar behoren.
heb ik instellingen bij de eigenschappen niet goed staan of moet dit op een andere manier opgelost worden.
Hopelijk kan iemand me hierbij helpen, zit er al een tijdje aan te werken.

Met vriendelijke groet;
Tom Kruizinga
p.s. heb de formule hier onder staan ( krijg op e.o.a. reden het bestand niet geüpload )

Private Sub ComboBox2_Change()
TextBox7 = Sheets("lijst").Cells(ComboBox2.ListIndex + 2, 4)
TextBox8 = Sheets("lijst").Cells(ComboBox2.ListIndex + 2, 5)
End Sub



Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub TextBox1_Change()
TextBox7 = Sheets("lijst").Cells(ComboBox2.ListIndex + 2, 4)
TextBox8 = Sheets("lijst").Cells(ComboBox2.ListIndex + 2, 5)
End Sub

Private Sub TextBox8_Change()

End Sub

Private Sub Userform_Initialize()

TextBox2.Text = Format(Now(), "short date")
TextBox4.Text = ("1")
ComboBox2.List = Sheets("lijst").ListObjects(2).DataBodyRange.Value
ComboBox1.List = Sheets("lijst").ListObjects(1).DataBodyRange.Value

 

End Sub


Private Sub CommandButton2_Click()

Dim iRow As Long
Dim ws As Worksheet

    Dim lrow As Long
    Dim lCount As Long

Set ws = Worksheets("werkblad")

Range("B2").Select

iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

If Trim(Me.TextBox1.Value) = "" Then
 Me.TextBox1.SetFocus
 MsgBox "Gegevens invullen"
 Exit Sub
  End If
 
ws.Cells(iRow, 2).Value = TextBox1.Value
ws.Cells(iRow, 3).Value = TextBox2.Value
ws.Cells(iRow, 4).Value = ComboBox1.Value
ws.Cells(iRow, 5).Value = TextBox3.Value
ws.Cells(iRow, 6).Value = TextBox4.Value
ws.Cells(iRow, 7).Value = TextBox5.Value
ws.Cells(iRow, 8).Value = TextBox6.Value

Me.TextBox1.SetFocus
 MsgBox "Gegevens zijn verwerkt"

End Sub

 

[ExcelAmateur]

Hier kun je lezen hoe de code te plaatsen.
Als je het bestandje als .XLSB opslaat, lukt het plaatsen misschien wel.

Edit, Vergeten de link te plaatsen.
Dank je wel snb voor de link.

 

[snb]

Lees svp https://www.helpmij.nl/forum/announcement.php?f=5

Vergeet ook niet, dat je met jouw toetsenbord hoofdletters aan het begin van een zin kunt zetten om de leesbaarheid te vergroten.

 

[tomkruizinga]

Hoi,

Bedankt voor het reageren, dat van die code is gelukt, bestand invoegen nog niet helaas