Tverrsum i EXCEL,.....Macro??

[Zethyr]

Er det noen funskjon i EXCEL som gir tverrsum av tallene i et felt.

Hvis ikke kan noen være så snill å si hvor jeg finner en macro som gjør det eller lage en?!? Begynner å haste litt, og jeg greier det ikke selv. finner ikke tverrsum i excel-bibelen, og jeg suger i VBA...

[tjoo..]

lag en ny module.

 

Function SumDigits(Number)

Dim i As Integer

For i = 1 To Len(Number)

SumDigits = SumDigits + Val(Mid(Number, i, 1))

Next i

End Function