Segítség!!!

 

Írtam egy UDF-et (ez volt az első). Az a baj, hogy nem jól működik!

A kód:

 

Function MinKereso(Tartomány As Range, Lépték As Variant)
Dim MyRange As Range
Dim Min, Oszlop As Integer
Min = Application.WorksheetFunction.Max(Tartomány)
Oszlop = Range(Tartomány.Address).Column
If Lépték <= 0 Then
    MinKereso = "Hibás lépték!"
    Exit Function
End If
For Each MyRange In Range(Tartomány.Address)
    If ((MyRange.Column - Oszlop) Mod Lépték) = 0 Then
        If MyRange.Value <= Min And MyRange <> 0 Then
                Min = MyRange.Value
                MinKereso = MyRange.Value
        End If
    End If
Next
If MinKereso = Empty Then
    MinKereso = 0
End If
End Function

 

A kijelölt tartomány minden negyedik cellájáinak a minimumát adja, a nullát kihagyja. A probléma az, hogy ha ez a képlet "=MinKereso(B4:AA4;3)" több munkalapon szerepel, mindig az első munkalap tartományában dolgozik.

A kérdés, hogyan lehet egy UDF-et csak az aktuális munkalapra tartományára hivatkoztatni?

 

Köszi!

 

Üdv: Sznido