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: