Datensatz = CATIA.FileSelectionBox ("Speichern unter" , "*.xls" , CATFileSelectionModeSave)

If Datensatz = ""  Then 

Exit Sub 

Else

If (InStr(Datensatz,".xls")) <> 0  Then 

assemblyConvertor2.Print "XLS" , Datensatz , product1

MsgBox "Gewünsche Tabelle erstellt!	" ,64,"Information    " &Date

Else

Datensatz = Datensatz & ".xls"


assemblyConvertor2.Print "XLS" , Datensatz , product1

MsgBox "Gewünsche Tabelle erstellt!	" ,64,"Information    " &Date

End If

End If