First of all I would like to thank you for trying to help me. Unfortunately your code doesnt do want I want to achieve. Maybe I didnt express myself clearly enough? What I want is to have the six different values of each number in the right field. Also I have to stress that I am a rather low level user of mathematica. So your code might be more professional but I dont understand it. So if you try again to offer me advice try please to be as basic as possible. Thanks in advance.