 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / Excel / Programming / March 2006UDF/VBA Function, trap error, avoid #VALUE!
I have created a function that returns a string. When it fails, Excel reports "#VALUE!". I would like to report my description of the error instead. I have tried to use error handling, but it seems to be ignored. In the area in which I "Try to do some useful Stuff", an error occasionally occurs. The debugger shows that control does not transfer to my ErrorHandler. Instead, execution ends immediately, and the cell value is set to "#VALUE!". Public Function myFunction() As String On Error GoTo ErrorHandler ' Try to do some useful Stuff myFunction = "RESULT" FunctionExit: Exit Function ErrorHandler: Err.Clear myFunction = "My Error Description" Resume FunctionExit End Function Thanks for your assistance! What's the code that causes the abort? > I have created a function that returns a string. When it fails, Excel > reports "#VALUE!". I would like to report my description of the error [quoted text clipped - 23 lines] > > Thanks for your assistance! This is the exact line: Set theDateRec = fiscalCalendar.Item(CStr(dateIn)) Note that: theDateRec is a class, calendarRecord fiscalCalendar is a collection of calendardRecords The collection is Keyed by Dates The error occurs when an invalid date/key is passed. I have created a new function to try to recreate an example function that mimics my intent: Public Function HelloWorld(causeError As Boolean) As String On Error GoTo ErrorHandler If (causeError) Then Err.Raise 1234 Else HelloWorld = "Hello World" End If FunctionExit: Exit Function ErrorHandler: Err.Clear HelloWorld = "ERROR HAPPENED" Resume FunctionExit End Function =HelloWorld(FALSE) returns "Hello World" =HelloWorld(TRUE) returns #VALUE! Hmm... I get =HelloWorld(FALSE) returns "Hello World" =HelloWorld(TRUE) returns "ERROR HAPPENED" I can cause an error if I use an argument that can't be coerced to a Boolean: =HelloWorld("TRUE ") returns #VALUE! > I have created a new function to try to recreate an example function > that mimics my intent: [quoted text clipped - 20 lines] > =HelloWorld(FALSE) returns "Hello World" > =HelloWorld(TRUE) returns #VALUE! Hmmm. Well, thanks for your inputs.. I can't figure out why my code works for you and not me. I've been poking around in Excel options, etc. to no avail. Thanks!! I am not too familiar with VBA/Excel, etc. I wonder if I am doing something different at another level. I choose Tools/Macros/Visual Basic Editor, then I create new code module and paste this code in there. Is that the right way? Is that what you are doing as well? I am trying to figure out our difference. Thanks!! |
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.