.... 

  	Set documents1 = CATIA.Documents
    
    	Set partDocument1 = documents1.Item("Anderes_Part.CATPart")
 
    	Set length1 = constraint5.Dimension


....
	Set documents1 = CATIA.Documents
    
    	Set partDocument1 = documents1.Item("Skelett.CATPart")
    
    	Set part1 = partDocument1.Part
    
    	Set Rels = part1.Relations
    
    	Dim Formel7 As Formula
    	Set Formel7 = Rels.CreateFormula("Formel.7", "", length1, "Parameter")