Wie findet man die Zeilennummer eines Wertes im gefilterten Blatt nur in sichtbaren Zellen?

Question

Ich habe folgende Syntax verwendet, aber es funktioniert nicht. Bitte irgendeine Hilfe zu diesem Thema.

minrow = Application.WorksheetFunction.Match(mindat, Sheets("Inventory").Range("G2:G1000").SpecialCells(xlCellTypeVisible), 0) 

Answer 1

Try this:

On Error Resume Next 
Dim SearchRange as Range 
Set SearchRange = Sheets("Inventory").Range("G2:G1000").SpecialCells(xlCellTypeVisible) 
On Error GoTo 0 

If Not SearchRange is Nothing Then 

    Dim FoundCell as Range 
    Set FoundCell = SearchRange.Find(mindat, lookat:=xlWhole) 

    If Not FoundCell is Nothing Then 
     minrow = FoundCell.Row 
    End If 

End If