MS Excel

Zkuste ve funkci změnit na
Application.Volatile Falsecitovat

Do funkce přidat FALSE zbytek už tam je. to jen, aby se to false dalo na správné místo.citovat

Public Function SVYHLEDAT2(Table As Range, SearchColumnNum As Integer, _
SearchValue As Variant, Rank As Integer, ResultColumnNum As Integer)

Dim i As Integer
Dim iCount As Integer
Dim rCol As Range
Application.Volatile False
SVYHLEDAT2 = ""
For i = 1 To Table.Rows.Count
If Table.Cells(i, SearchColumnNum) = SearchValue Then
iCount = iCount + 1
If iCount = Rank Then
SVYHLEDAT2 = Table.Cells(i, ResultColumnNum)
Exit For
End If
End If
Next i
End Functioncitovat