Opgelost Kan het genoemde argument niet vinden

[Mark_68]

Hallo ik krijg de de melding "kan het genoemde argument niet vinden" in het onderstaande:
Het gaat om deze regel en dan vind hij de fout in Criterial:=

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

Hierbij de voledige Sub

Sub SearchData()

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, Criterial:=sValue

Else
shDatabase.Range("A1:F" & iDatabaseRow).AutoFilter Field:=iColumn, Criterial:="*" & 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

 

[edmoor]

De 1 in Criteria1 in je code is geen 1 maar een kleine letter L.
Dat moet dus het cijfer 1 zijn.

NB:
Als je hier code plaatst zet dit dan in code tags.
Zie mijn handtekening.

 

[Mark_68]

Dank je wel dit was inderdaad het probleem. Zal er de volgende keer rekening mee houden