'/** ' * Prüft ob das Objekt von einer User Definirten Klasse stammt ' * @param Variant Das zu untersuchende Objekt ' * @return Boolean True => Objekt ist ein Klassenmodul ' */ Private Function isClassModul(ByVal iExpression As Variant) As Boolean Dim tn As String: tn = typeName(iExpression) isClassModul = False On Error Resume Next isClassModul = (Application.VBE.ActiveVBProject.VBComponents(tn).name) = tn Err.Clear End Function