Sub CATMain()

'Message Box
	angelload = MsgBox("Do you want to apply material from excel-list ?" + Chr(10) , vbYesNo, "Apply Material")
    
    	If angelload = 6 Then     
   	Set objXL = CreateObject("Excel.Application")
	
'Parameters and Realtions
	Dim Params As Parameters
	Set Params = CATIA.ActiveDocument.Part.Parameters
	Dim Material, Description As Dimension
	Dim Density As Relations 
	Dim Rels As Relations
	Set Rels = CATIA.ActiveDocument.Part.Relations
	
'Desig Table
	Dim KTab As DesignTable
	Dim KName, Beschr, Pfad As String
	KName = "MATERIALLISTE"
	Beschr = "ROOFS-Material"
	Pfad = "Q:\mxv5-production\mxv5\macros\Material List.xls"
	Set KTab = Rels.CreateDesignTable (KName, Beschr, false, Pfad)		
		
'Create Association

	Set partDocument1 = CATIA.ActiveDocument

	Set part1 = partDocument1.Part

	Set relations1 = part1.Relations

	Set designTable1 = relations1.Item("MATERIALLISTE")

	Dim parameters1 As Parameters
	Set parameters1 = part1.Parameters

	Dim strParam1 As Parameter
	Set strParam1 = parameters1.Item("material")
	designTable1.AddAssociation strParam1, "Material"

	Dim parameters2 As Parameters
	Set parameters2 = part1.Parameters

	Dim strParam2 As Parameter
	Set strParam2 = parameters2.Item("comment")
	designTable1.AddAssociation strParam2, "Description"

	Dim parameters3 As Parameters
	Set parameters3 = part1.Parameters

	Dim dimension1 As Parameter
	Set dimension1 = parameters3.Item("material_density")
	designTable1.AddAssociation dimension1, "Density"

	designTable1.Configuration = 12

'Update
	Set partDocument1 = CATIA.ActiveDocument
	Set part1 = partDocument1.Part
	Set relations1 = part1.Relations
	Set formula1 = relations1.Item("Formula.1")
	part1.UpdateObject formula1

End If
End Sub