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: