Ich weiß zwar nicht ob das jemand braucht, weil ich keinen Sinn in Quersummen sehe, aber ich habe das mal kurz programmiert.... quersumme=54086 summe=0 stellen=Len(Str$(quersumme)) For stelle=1 To stellen summe=summe+Val(Mid$(Str$(quersumme),stelle,1)) Next stelle Ergebnis: summe = 23 -- Martin Oppermann 02:10, 12. Okt. 2008 (CEST)