error 424, maar vind de fout echt niet

[lenaers]

Beste


Ik wil dus textboxen automatisch laten invullen, maar ik krijg steed de foutmelding 424 object vereist. Maar ik vind de fout gewoon niet, lees ik er steeds over ?

Private Sub txtScanValue_AfterUpdate()

'Kijkt na of het item bestaat
 If WorksheetFunction.CountIf(Master.Range("A:A"), Me.txtScanValue.Value) = 0 Then
 MsgBox "Dit Item bestaat niet"
 Me.txtScanValue.Value = ""
 Exit Sub
 End If
 'Vlookup, data opzoeken
 With Me
 .txtOmschrijving = Application.WorksheetFunction.VLookup((Me.txtScanValue), Master.Range("data"), 2, 0)
 .txtBestel = Application.WorksheetFunction.VLookup((Me.txtScanValue), Master.Range("data"), 3, 0)
 .txtLeverancier = Application.WorksheetFunction.VLookup((Me.txtScanValue), Master.Range("data"), 4, 0)
 .txtAantal = Application.WorksheetFunction.VLookup((Me.txtScanValue), Master.Range("data"), 5, 0)
End With

End Sub

Ik ga dus zoeken in de sheet Master in de range A:A

het zit onder de knop test bijboeken.

Bekijk bijlage Magazijn v3.xlsm

 

[E v R]

hier zoek je in de CodeName van de sheet:

If WorksheetFunction.CountIf(Master.Range("A:A"), Me.txtScanValue.Value) = 0 Then

en die heet Blad1

dus of:

If WorksheetFunction.CountIf(Blad1.Range("A:A"), Me.txtScanValue.Value) = 0 Then

of:

If WorksheetFunction.CountIf(Worksheets("Master").Range("A:A"), Me.txtScanValue.Value) = 0 Then