Dim productDocument1 As Object
    Dim documents1 As Object
    Dim selection1, selection2, selection3, selection4 As Selection
    Dim hybridShapes1, hybridShapes2 As HybridShapes
    Dim body1 As body
    Dim shapes1 As Object
    Dim bodies1 As Bodies
    Dim pad1 As Pad
    Dim hybridBodies_1 As HybridBodies
    Dim hybridBody2 As HybridBody
    Dim solid1 As Solid
    Dim rib1 As rib
    Dim hsanz, banz, b, hb As Integer
    Dim selectedCurve As String
    
On Error GoTo AllError

    strPart = cbKammern.text			' beinhaltet das gewählte Part, kompletter Dateiname
    selectedCurve = Mid(lbSkatch.text, 4)	' welches Kurvenobjekt bearbeitet werden soll
    
    If CATIA Is Nothing Then
        Range("A12").value = "Info:"
        Range("A13").value = "PointsToLine -> Kein aktuelles Catiaprojekt gefunden!"
    ElseIf CATIA.Documents.Item(posdocitem).part.HybridBodies.Count > 0 And strPart <> "" Then
    
        Set productDocument1 = CATIA.ActiveDocument
        Set selection1 = productDocument1.Selection
        selection1.Clear
        Set selection2 = productDocument1.Selection
        selection2.Clear
        Set selection3 = productDocument1.Selection
        selection3.Clear
        Set selection4 = productDocument1.Selection
        selection4.Clear
        
        Set partDocument1 = CATIA.Documents.Item(strPart)
        Set part1 = partDocument1.part
        
        Set hybridBodies1 = part1.HybridBodies
        
' ----- Dummy-Body-LED zur jeweiligen Kurve löschen -------------------------------------
' ---------------------------------------------------------------------------------------
    On Error GoTo Fehler_4
        Set bodies1 = part1.Bodies
        For b = 1 To bodies1.Count Step 1
            If InStrRev(bodies1.Item(b).name, selectedCurve) > 0 Then
                Set body1 = bodies1.Item(b)
                selection4.Add body1
            End If
        Next
        ' löscht alle Dummy-Body-LED-x-Curve-x
        If selection4.Count > 0 Then
            selection4.Delete		' hier knallts !!!!!
        End If
        part1.Update