---

Hejsa

Ved nogen hvordan man kan summere celle a1 i alle ark i excel.
For at gøre det mere besværlig vil jeg kunne anvende makroen i excel med
forskellig antal ark.

Jeg tror jeg skal anvende for each worksheet(i)......og et eller andet. Den
er godt nok lidt svær synes jeg. Har nogen nogle bud på, hvordan jeg kommer
videre?

---

En løsning blant mange:

Function SumAfCeller(Cellenavn As String) As Double
Dim L As Long
SumAfCeller = 0
For L = 1 To ActiveWorkbook.Worksheets.Count
SumAfCeller = SumAfCeller + Worksheets(L).Range(Cellenavn).Value
Next
End Function

Sub test()
MsgBox SumAfCeller("A1")
End Sub

HTH. Beste hilsen Harald

"Tommy Hermann" <tommyhermann@stofanet.dk> skrev i melding
news:4648ab3f$0$4161$ba624c82@nntp02.dk.telia.net...
> Hejsa
>
> Ved nogen hvordan man kan summere celle a1 i alle ark i excel.
> For at gøre det mere besværlig vil jeg kunne anvende makroen i excel med
> forskellig antal ark.
>
> Jeg tror jeg skal anvende for each worksheet(i)......og et eller andet.
Den
> er godt nok lidt svær synes jeg. Har nogen nogle bud på, hvordan jeg
kommer
> videre?
>
>