Private Function DeletePatternElement(ByRef oCompOcc As Inventor.ComponentOccurrence) As Boolean

    If oCompOcc.PatternElement Is Nothing Then
        Exit Function
    End If
    
    Dim oPattElem As Inventor.OccurrencePatternElement
    Set oPattElem = oCompOcc.PatternElement
     
    Dim oOccPattElemParent As OccurrencePattern
    Set oOccPattElemParent = oPattElem.Parent
    
    Dim oOccPatt As Inventor.OccurrencePattern
    Set oOccPatt = oPattElem.Parent

    ' Anzahl der Bauteile im OccurrencePattern
    Dim nParOccNumb As Long
    nParOccNumb = oOccPatt.ParentOccurrences.Count 
    ' -> da unbekannt ab 2ter Hierarchiestufe, nParOccNumb = 0

    If nParOccNumb > 1 Then
        Dim oOccParentPatt As OccurrencePattern
        Set oOccParentPatt = oOccPatt.OccurrencePatternElements.Parent
        
        Dim oOccParentCollection As ObjectCollection
        Set oOccParentCollection = oOccParentPatt.ParentOccurrences
         
        oOccParentCollection.Remove (1)
        oOccPatt.OccurrencePatternElements.Parent.ParentOccurrences = oOccParentCollection

    ElseIf nParOccNumb = 1 Then
        oOccPatt.Delete
    Else
        MsgBox "OccurrencePattern ohne ComponentOccurrence!"
    End If
    
End Function