Excel, formel til beregning af tværsum

Funktionen TÆL returnerer antallet af celler i et område som indeholder enten tekst eller tal. Så hvis de værdier du skal beregne tværsum af står i f.eks. område A1 til A5, ser formlen således ud:
=SUM(A1:A5)/TÆL(A1:A5)

Hej sblar - tak for dit svar, men det tal jeg får udaf din beregning er for mig at se gennemsnittet af værdierne! eller?
Jeg udtrykker mig måske ikke godt nok, men hvis vi har en værdi på 12 så er det jeg forstår ved tværsum 1+2 altså 3

Ja, og gennemsnittet kan løses med formlen
=MIDDEL(A1:A5)
:-))
Jeg er ikke sikker på, at den formel findes, men ellers kan den programmeres selv.....

Function Tværsum(area as range)as double
for each cell in area
  for x=1 to len (cell)
  tværsum=tværsum+mid(x,cell,1)
  next
next
end function

Ja, det skulle altså have været et svar....:-))

/Xelor

Xelor, den virker ikke for godt for mig.
Men med denne rettelse funker det.

Function tværsum(tal)
strTal = CStr(tal)
For x = 1 To Len(strTal)
    s = Val(Mid(strTal, x, 1)) + s
Next
tværsum = s
End Function

Hej Xelor, det kan jeg ikke hitte ud af - hvad skal man præsis skrive for at benytte formlen i f.eks. felt b1, og det tal jeg ønsker tævrsummen i står i felt a1?

=tværsum(A1)

Du skal trykke alt-f11, indsætte et nyt modul og kopiere funktionen derind.
Herefter er funktionen til rådighed i regnearket.

Ja, den rettelse fra Bak, den virker, men så kan du kun sammenregne tværsummen for en celle ad gangen...

Såfremt du vil have muligheden for at sammenregne for et helt område, så skal den originale formel bruges med en enkelt rettelse :

Function Tværsum(area As Range) As Double
For Each cell In area
  For x = 1 To Len(CStr(cell.Value))
    Tværsum = Tværsum + Val(Mid(CStr(cell.Value), x, 1))
  Next
Next

If Len(CStr(Tværsum)) > 1 Then
    For x = 1 To Len(CStr(Tværsum))
        tmpTværsum = tmpTværsum + Val(Mid(CStr(Tværsum), x, 1))
    Next
    Tværsum = tmpTværsum
End If

End Function


Og så skal man naturligvis huske den korekte rækkefølge af parametre i MID-funktionen...:-))
Tak til Bak for den lille påmindelse

/Xelor

Tak for hjælpen - det er første gang jeg prøver dette forum, og troede, at jeg kunne fordele point mellem Xelor og bak, men jeg da jeg trykkede accepter svar gik det hele til xelor - undskyld bak.

Fair skal være fair.....
Bak får 15 point af mig....

/Xelor

>>>cadi
Du efterspørger en formel og du har ret i, at den findes.
Prøv denne her: =HVIS(REST(B4;9)=0;9;REST(B4;9))

>>janvogt : det var en smart måde at bruge divisionen på......
Det er dog ikke en formel jeg ville have fundet på (måske fordi jeg ikke kender alle de matematiske regler)

Men vældig smart.

/Xelor

>>>xelor

Jeg kender absolut heller ikke alle matematiske regler, men denne kendte jeg :-)
Og da cadi nu efterlyste en formel kunne han jo lige så godt få den ... :-)

Forøvrigt må VBA-funktionen kunne gøres noget kortere ved brug af ovenstående.

=HVIS(REST(B4;9)=0;9;REST(B4;9))

Den sad lige i skabet hos mig.

Tak til janvogt.