Opgelost Foutmelding

[Mark_68]

Hallo ik krijg de foutmelding "Eigenschap Match van klasse WorksheetFunction kan niet worden opgehaald" als ik zoek op waarde

 Application.ScreenUpdating = False
    Dim shDatabase As Worksheet
    Dim shSearchData As Worksheet
    
    Dim iColumn As Integer
    Dim iDatabaseRow As Long
    Dim iSearchRow As Long
    
    Dim sColumn As String
    Dim sValue As String
    
    Set shDatabase = ThisWorkbook.Sheets("Database")
    Set shSearchData = ThisWorkbook.Sheets("SearchData")
    
    iDatabaseRow = ThisWorkbook.Sheets("Database").Range("A" & Application.Rows.Count).End(xlUp).Row
    sColumn = frmForm.cmbZoekIn.Value
    sValue = frmForm.txtZoek.Value
    
    iColumn = Application.WorksheetFunction.Match(sColumn, shDatabase.Range("A1:F1"), 0)
    
    If shDatabase.FilterMode = True Then
    
    shDatabase.AutoFilterMode = False

End If

    If frmForm.cmbZoekIn.Value = "Component" Then
    
    shDatabase.Range("A1:F" & iDatabaseRow).AutoFilter Field:=iColumn, Criteria1:=sValue

Else

    shDatabase.Range("A1:F" & iDatabaseRow).AutoFilter Field:=iColumn, Criteria1:="*" & sValue & "*"

End If

    If Application.WorksheetFunction.Subtotal(3, shDatabase.Range("C:C")) >= 2 Then
    
    shSearchData.Cells.Clear
    
    shDatabase.AutoFilter.Range.Copy shSearchData.Range("A1")
    
    Application.CutCopyMode = False
    
    iSearchRow = shSearchData.Range("A" & Application.Rows.Count).End(xlUp).Row
    
    frmForm.lstDatabase.ColumnCount = 6

If iSearchRow > 1 Then

    frmForm.lstDatabase.RowSource = "SearchData!A2:F" & iSearchRow
    
    MsgBox "Gegevens gevonden."

End If

Else

    MsgBox "Geen gegevens gevonden."

End If

    shDatabase.AutoFilterMode = False
    Application.ScreenUpdating = True

End Sub

Bij alle andere zoekwaardes werkt het wel

 

[AD1957]

In blad Database: Verwijder de spatie in cel E1 achter Waarde.

 

[Mark_68]

Dank je wel Albert