Opgelost Textboxen Vergelijken met een rij ?

[Warme bakkertje]

Dat bedoel ik niet. Post een bestand met werkelijke cijfers en Id's die alle combinaties bevat omdat je zegt dat het de ene keer wel werkt en de andere niet.

 

[Warme bakkertje]

Private Sub lMatch()
    Dim bMatch As Long
    With Blad2.ListObjects(1).DataBodyRange
        If (txtID <> vbNullString) * (txtNumber <> vbNullString) Then
            bMatch = Evaluate("countifs(" & .Columns(1).Address(, , , True) & ",""" & _
                        txtNumber & """," & .Columns(2).Address(, , , True) & "," & txtID & ")")
        ElseIf (txtNumber <> vbNullString) * (txtID = vbNullString) Then
            bMatch = Evaluate("countif(" & .Columns(1).Address(, , , True) & ",""" & txtNumber & """)")
        ElseIf (txtNumber = vbNullString) * (txtID <> vbNullString) Then
            bMatch = Evaluate("countif(" & .Columns(2).Address(, , , True) & ",""" & txtID & """)")
        End If
    End With
    lblResultaat.Caption = bMatch
End Sub

Bovenstaande kijkt dus naar de combinatie, txtNumber apart en txtID apart.
Wat deze code wel doet is alle keren dat het gezochte item voorkomt in die kolom optellen.
Dus als bv. de combinatie al voorkomt en je zoekt op hetzelfde nummer alleen zijn er 2 matches.
Is dat correct?

 

[Excelvbas01]

Bedankt voor je hulp.