hente sum på ark

Du kan indsætte denne macro den vil bladre alle dine 100 ark igennem og summere indholdet af celle A4.
Indsæt macroen ved at trykke ALT + F11
Vælg ThisWorkBook og indsæt macroen.
Kør macroen fra menu i excel eller indsæt en eller anden form for knap.
Resultatet kommer frem i celle A5 på Sheet nr 1 (Ark 1). Du kan ændre det så det passer til dit ark.

Hilsen

Lars


Sub getSum()
    Dim totalSum As Double
    totalSum = 0
    For i = 1 To 100
        totalSum = totalSum + Sheets(i).[A4]
    Next i
    Sheets(1).[A5] = totalSum
End Sub

Du kan også vælge denne simple løsning. Du skal bare indsætte denne formel, hvor du vil have din totalsum:

=SUM(Sheet1:Sheet100!A4)

Hilsen

Lars

Hvad så hvis jeg istedet for ark1 har navkivet det Hans Hansen ?

/cdc

Det er lige meget. Idet min formel ikke ser efter navnet på arket men efter systemnumret på arket.

Dvs. det virker.

Det skal lige kommenteres. Jeg bruger Excel 2000/Eng

Du kan evt. benytte denne metode:
Skriv i cellen på første ark

=sum(

placer med musen cursoren i celle A4
Tryk shift ned mens du vælger dit sidste ark
(Nu er alle dine arks faneblade hvide)
Vælg nu celle A4 i sidste celle
Nu mangler din formel kun et ), hvis du kigger oppe i formellinien. Indtast et ) og tryk enter
Nu er din formel færdig. Også selvom du har faneblade der hedder Hans Hansen.

Hilsen

Lars

lsimony > Det er desværre ikke helt korrekt.

Jeg går ud fra at du har brugt en Engelsk Excel.
Hvis du efter at du har lavet den formel, ændrer navnet på enten det første eller det sidste ark, så se hvad der sker med formlen.
Bortset fra det, så har du ret i at formlen virker....

Du kan ikke lave kald til VBA system-objekter i en almindelig funktion i Excel.
Det du har skrevet er IKKE systemnummeret på arket, men arket\'s navn.

>/CDC : Såfremt dit første og/eller sidste ark har mellemrum, som i dit eksempel, så skal du skrive :
=SUM(\'Hans Hansen:Jens Jensen\'!A4)

Det gælder kun, hvis det er det første eller sidste ark, som har mellemrum.
Såfremt et af arkene skifter navn, så retter formlen sig selv til.

ok jeg prøver lige

/cdc

Hmm...lidt rod i rækkefølgen på svarene synes jeg......
Min kommentar kommer efter at lsimony har udbydet sit svar, men jeg har skrevet det før jeg har læst det....
Jeg beklager.....men som sagt, Lars har ret !!!