vba Errorhandling

    • Allgemein

    Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von exnoport.

      vba Errorhandling

      ich habe mal das Try Catch für VBA nachgebaut, die Fehlermeldung spuckt Modul und Prozedur aus.

      Sub_Vorlage für Sub's und Function_Vorlage für Funtionen.

      Visual Basic-Quellcode

      1. Public Sub Sub_Vorlage()
      2. '**********************
      3. Dim ErrorText As String
      4. ErrorText = vbNullString
      5. On Error GoTo Catch
      6. '**********************
      8. 'If Fehler Then ErrorText = "Fehlermeldung": GoTo Catch
      10. 'Code hier
      12. '**********************
      13. GoTo Finaly
      14. Catch:
      15. Errorhandler Application.VBE.ActiveCodePane.CodeModule.ProcOfLine(Application.VBE.ActiveCodePane.TopLine, 0), Application.VBE.ActiveCodePane.CodeModule.Parent.Name, ErrorText
      16. Finaly:
      17. ClearClipboard
      18. '**********************
      19. End Sub
      21. Public Function Function_Vorlage() As Boolean
      22. 'Standardrückgabewert setzen
      23. Function_Vorlage = True
      24. '**********************
      25. Dim ErrorText As String
      26. ErrorText = vbNullString
      27. On Error GoTo Catch
      28. '**********************
      30. 'If Fehler Then ErrorText = "Fehlermeldung": GoTo Catch
      32. 'Code hier
      34. '**********************
      35. GoTo Finaly
      36. Catch:
      37. 'Fehlerrückgabewert setzen
      38. Function_Vorlage = False
      39. Errorhandler Application.VBE.ActiveCodePane.CodeModule.ProcOfLine(Application.VBE.ActiveCodePane.TopLine, 0), Application.VBE.ActiveCodePane.CodeModule.Parent.Name, ErrorText
      40. Finaly:
      41. 'alle nicht mehr benötigten Objekte entladen
      42. 'set IrgeneinObject = nothing
      44. 'Zwischenspeicher leeren
      45. ClearClipboard
      46. '**********************
      47. End Function
      49. Public Sub Errorhandler(ByVal procName As String, ByVal moduleName As String, ByVal extraError As String)
      50. MsgBox IIf(Not extraError = vbNullString, extraError & ", ", vbNullString) & IIf(Err > 0, Err.Description & ", ", vbNullString) & "Fehler in " & procName & " in " & moduleName
      51. End Sub
      53. Public Sub ClearClipboard()
      54. OpenClipboard 0&
      55. EmptyClipboard
      56. CloseClipboard
      57. End Sub

      Ich würde empfehlen, das ClearClipboard rauszunehmen. Es gibt immerhin nichts nervigeres als ein Programm, welches ungefragt meine Zwischenablage leert.
      Besucht auch mein anderes Forum:
      Das Amateurfilm-Forum

    Facebook
    Telefonspende