Prüfen ob Modul vorhanden ist

Funktion

Diese Funktion prüft, ob ein bestimmtes Modul vorhanden ist.

Code

Public Function IstModulVorhanden(strModulName) As Boolean 

 
On Error Resume Next 

 
IstModulVorhanden = Len(Application.VBE.ActiveVBProject.VBComponents( _ 
strModulName).Name) <> 0 

 
End Function

Beschreibung

Es wird geprüft, ob die Länge des Namens des Moduls größer 0 ist. Wenn dies der Fall ist, liefert die Funktion "True" zurück. Wenn das Modul 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