Új hozzászólás Aktív témák

  • bteebi

    veterán

    Sziasztok!

    Készítettem egy UDF-et, ami az n. karakter pozícióját adja meg egy sztringben. Működni működik, de azt szeretném, ha az karakter nem szerepel n-szer, vagy egyáltalán nincs benne a sztringben, akkor egy "Nincs ilyen!" üzenetet küldjön, ne pedig #ÉRTÉK! legyen. Erre simán írtam egy If-et:

    Function Findnth(rng As Range, character As String, n As Integer)
    If WorksheetFunction.IsNumber(WorksheetFunction.Find(Chr(160), WorksheetFunction.Substitute(rng, character, Chr(160), n))) = True Then
        Findnth = WorksheetFunction.Find(Chr(160), WorksheetFunction.Substitute(rng, character, Chr(160), n))

        Else
        Findnth = "Nincs ilyen!"
    End If
    End Function

    De valamiért sajnos nem működik így. Nem lehet UDF-be If-et tenni? Hogy lehet megkerülni a problémát? Előre is köszönöm a segítséget!

Új hozzászólás Aktív témák