Text function

N

nc

Is there a function in Excel 2003 that is like "Search"/"Find", but start
from the right?

Thanks
 
S

Stefi

Only VBA has such a function (InStrRev). You can create an UDF like this:

Public Function FindRev(StrtoSearch As String, StrSearchedFor As String) As
Long
FindRev = 0
On Error Resume Next
FindRev = InStrRev(StrtoSearch, StrSearchedFor)
End Function

Regards,
Stefi


„nc†ezt írta:
 
S

Stefi

Sorry, I misread your request! This is the function you want:

Function ByteReverse(InputString As String) As String
Dim i As Long
Dim ByteStr, ResultStr As String
ResultStr = ""
For i = Len(InputString) To 1 Step -1
ByteStr = Mid(InputString, i, 1)
ResultStr = ResultStr & ByteStr
Next i
ByteReverse = ResultStr
End Function

Regards,
Stefi

„nc†ezt írta:
 
D

Dave Peterson

Another one:

Option Explicit
Function ByteReverse2(InputString As String) As String
ByteReverse2 = StrReverse(InputString)
End Function
 
N

nc

Dear Dave

I tried your solution below and got this error message, "Compile error:
Expected variable or procedure, not module".

Please advise. Thanks.
 
S

Stefi

It's annoying to realize that there is a much simpler solution than the one
you used up to now! It's also annoying that XL doesn't includes such useful
functions as built-in functions!

Stefi


„Dave Peterson†ezt írta:
 
D

Dave Peterson

What did you name your module?

Don't use the same name for functions/subs as the name of a module.

Try going into the VBE
hit ctrl-r (to see the project explorer)
select your project
Show all the modules
If you have one named ByteReverse (or ByteReverse2), rename it to:
Mod_ByteReverse
(or anything that is unique).

By the way, if I recall correctly, strreverse was added in xl2k. If you're
using xl97, you'll want to use Stefi's code.

(I'm sure someone will correct me if my memory is failing me on StrReverse.)
 
Top