Prüfen ob Modul vorhanden ist

Prüfen, ob ein 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: