ListObject + DataBodyRange + Find

[pit84]

Hi

tbl is one dimensional table with header. I want to get what index it has in table (dataBodyRange)

tbl.DataBodyRange.Find(textToFine).row - gives me row nr in worksheet. If table is in top row, I can simply subtract 1, yet I assume there is a way to get that value without math operations

thanks

 

[Norie]

Try using Application.Match.

Dim tbl As ListObject
Dim Res As Variant

    Set tbl = ActiveSheet.ListObjects(1)
    
    Res = Application.Match("Test2", tbl.ListColumns(1).DataBodyRange, 0)