Prüfen ob Prozedur vorhanden ist

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: