Sub CATMain()
    
    Dim iFilter(0)
    iFilter(0) = "Part"
    Dim selection1 As Object 'As Selection
    Set selection1 = CATIA.ActiveDocument.Selection
    
    If CATIA.SystemConfiguration.Release > "14" Then
        selection1.SelectElement2 iFilter, "Bitte Part waehlen!", True
    Else
        selection1.SelectElement iFilter, "Bitte Part waehlen!", True
    End If
    
    Dim partDocument1 As PartDocument
    Set partDocument1 = selection1.Item(1).Value.Parent
    
    '-----------------------
    '#Stuecklisteninfo    erstellen
    '-----------------------
    Dim part1 As Part
    Set part1 = partDocument1.Part
    Dim hybridBodies1 As HybridBodies
    Set hybridBodies1 = part1.HybridBodies
    Dim hybridBody1 As HybridBody
    Set hybridBody1 = hybridBodies1.Add()
    hybridBody1.Name = "#Stuecklisteninfo"
    
    '----------------------------------------
    'Parameter fuer #Stuecklisteninfo erstellen
    '----------------------------------------
    Dim parameters1 As Parameters
    Set parameters1 = part1.Parameters
    Dim strParam1 As Object 'As StrParam
    Set strParam1 = parameters1.SubList(hybridBody1, False).CreateString("W-Material", "") 'hier schon Namen vergeben
    'wird nur benoetigt wenn mehrfachauswahl
    Dim arrayOfVariantOfBSTR1(2)
    arrayOfVariantOfBSTR1(0) = "Marmor"
    arrayOfVariantOfBSTR1(1) = "Stein"
    arrayOfVariantOfBSTR1(2) = "Eisen"
    strParam1.SetEnumerateValues arrayOfVariantOfBSTR1
    strParam1.Value = arrayOfVariantOfBSTR1(0) 'wertuebergabe array(0)
    
    '-------------------------------------------------------------
    'Formel zwischen #Stuecklisteninfo und Eigenschaften erstellen
    '-------------------------------------------------------------
    Dim product1 As Product
    Set product1 = partDocument1.Product
    
    Set parameters1 = product1.UserRefProperties
    Set strParam1 = parameters1.CreateString("Materialtest", "")
    
    Set part1 = partDocument1.Part
    Dim aktuellerpartname As String
    aktuellerpartname = part1.Name 'Partnamen holen
    
    Dim relations1 As Relations
    Set relations1 = part1.Relations
    
    Dim formula1 As Formula
    Set formula1 = relations1.CreateFormula("Beschreibung-Materialzuweisung", "", strParam1, "`#Stuecklisteninfo\W-Material` ")
    
    part1.Update
    
End Sub