Prüfen ob Prozedur vorhanden ist

Funktion

Diese Funktion prüft, ob eine Prozedur in einem Modul vorhanden ist.

Code

Public Function IstProzedurVorhanden(strProzedur As String, strModul As String) As Boolean


  On Error Resume Next


  If IstModulVorhanden(strModul) = True Then
    IstProzedurVorhanden = Application.VBE.ActiveVBProject.VBComponents(strModul) _
                           .CodeModule.ProcStartLine(strProzedur, vbext_pk_Proc) <> 0
  End If


End Function

Beschreibung

Als erstes wird geprüft, ob das Modul vorhanden ist. Dann wird geprüft, ob die Startzeile der Prozedur ungleich 0 ist. Wenn dies der Fall ist, ist die Prozedur vorhanden. Wenn die Prozedur nicht vorhanden ist, dann greift die Fehlerbehandlung. Die Funktion liefert in diesem Falle "False" zurück.

Verweise

Damit dieser Code funktioniert, ist folgender Verweis erforderlich:

• Microsoft Visual Basic for Applications Extensibility 5.3