Hej
prøv at slette det jeg har markeret med rød
'Apply filter on Database worksheet
If frmForm.cmbSearchColumn.Value = "Værktøjs Nr" Then
shDatabase.Range("A1:R" & iDatabaseRow).AutoFilter Field:=iColumn, Criteria1:=sValue
Else
shDatabase.Range("A1:R" & iDatabaseRow).AutoFilter Field:=iColumn, Criteria1:="*" & sValue & "*"
End If