Avatar billede frkhalkjaer Praktikant
28. september 2006 - 10:33 Der er 8 kommentarer og
1 løsning

Sumprodukt på tværs af faner?

Hej

Jeg kunne godt tænke mig at få produktet af cellerne A1 gange A2 i alle fanerne ark1, ark2 og ark 3.
Dvs. en slags sumprodukt på tværs af fanerne. Men =SUMPRODUKT(('Ark1:Ark3'!A1)*('Ark1:Ark3'!A2)) virker ikke. Er der nogen af jer eksperter der kender en funktion hvorved man kan få excel til at beregne det?

Mvh
Andrea
Avatar billede mrjh Novice
28. september 2006 - 11:21 #1
=SUM(Ark1:Ark3!$A$1)*SUM(Ark1:Ark3!$A$2)
Avatar billede supertekst Ekspert
28. september 2006 - 11:35 #2
..eller Data | Konsolider | Produkt
Avatar billede frkhalkjaer Praktikant
28. september 2006 - 11:37 #3
Det virker ikke helt for så får jeg summen af a1 på alle faner gange summen af a2 på alle faner.
Jeg skal reelt bruge tallene ganget ud individuelt =Ark1!A1*Ark1!A2 + Ark2!A1*Ark2!A2 + Ark3!A1*Ark3!A2

Problemet er bare, at der reelt er tale om langt flere faner, og antallet af faner stiger, derfor ville jeg gerne have en automatiseret måde at gøre det på.

Eksempel
Ark1
A1 = 1
A2 = 10

Ark2
A1 = 2
A2 = 20

Ark3
A1 = 3
A2 = 30

=Ark1!A1*Ark1!A2 + Ark2!A1*Ark2!A2 + Ark3!A1*Ark3!A2 giver 140
=SUM(Ark1:Ark3!$A$1)*SUM(Ark1:Ark3!$A$2) giver 180 <- så den virker så vidt jeg kan se ikke.
Avatar billede frkhalkjaer Praktikant
28. september 2006 - 12:43 #4
Til Supertekst:
Data | Konsolider | Produkt lyder interessant men jeg får forskellige fejlmeddelelser når jeg prøver det, så jeg ville høre om du kunne hjælpe mig med et eksempel?

Og opdaterer den automatisk?
Avatar billede supertekst Ekspert
28. september 2006 - 15:27 #5
Så er det nok en makro, der skal skrives, når antallet af ark forøges.

Koden anbringes i ThisWorkbook i VBA-vinduet (Alt+F9)

Dim sumP
Sub workbook_activate()
Dim produkt
    sumP = 0
   
Rem gennemløb alle Ark i mappen
    For Each ark In ActiveWorkbook.Sheets
        produkt = ark.Cells(1, 1) * ark.Cells(2, 1)
        sumP = sumP + produkt
    Next
   
Rem Indsætter resultat på Ark 1 E5
    Sheets(1).Activate
    Cells(1, 5) = sumP
   
End Sub
Avatar billede frkhalkjaer Praktikant
28. september 2006 - 15:37 #6
Takker - jeg havde håbet på en formel, der kunne løse det - men det her er også ok.
Sender du et svar?
Avatar billede excelent Ekspert
28. september 2006 - 15:40 #7
=SUM((Ark1!A1*Ark1!A2)+(Ark2!A1*Ark2!A2)+(Ark3!A1*Ark3!A2))
Avatar billede supertekst Ekspert
28. september 2006 - 15:45 #8
Selv tak- du får et svar
Avatar billede frkhalkjaer Praktikant
28. september 2006 - 15:54 #9
Til excelent: Den har jeg jo selv brugt tidligere, men den løser jo ikke det, at der kan komme flere faner til....
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester