Send lige til mig også, Jan. pls alternativ formel. (Måske lidt vel heftig.) Data er i Ark1 fra a1:c100, indtastningsfelter i Ark2 A1 og A2 =INDEX(Ark1!A1:C100;MATCH(Ark2!B1;INDIRECT("Ark1!B" & MATCH(Ark2!A1;Ark1!A1:A100;0)):Ark1!B100;0)+MATCH(Ark2!A1;Ark1!A1:A100;0)-1;3)
Jeg har lavet en funktion, der bare skal indsættes i et VBA Modul (Åbn Excel - Tryk Alt + F4 - Vælg Indsæt Modul - Kopier koden ind.
Nu har du en ny funktion, der hedder "Hent" og som ligger under brugerdefinere funktioner.
Function Hent(Varegruppe As Integer, Leverandør As Integer)
For n = 1 To 100 If (Sheets("Ark1").Cells(n, 1).Value = Varegruppe) And (Sheets("Ark1").Cells(n, 2) = Leverandør) Then Hent = Sheets("Ark1").Cells(n, 3) Exit For End If Next n
Så fik jeg vist kontakt med min hjerne igen. :-) Hvorfor lave sådan en monsterformel som min. Jan's formel virker perfekt, men Excel har jo en formel der er bygget til det formål DSUM()
A B C Varegruppe Leverandør Beløb 01 100 100 01 102 150 01 105 120 02 101 170 02 102 110
Opret de samme overskrifter et andet sted.
E F G Varegruppe Leverandør Beløb 2 101 =DSUM(A1:C6;C1;E1:F2)
a1:c6 er databasen, C1 er kolonnen der skal summes, e1:f2 er kriterier.
Hej janvogt og bak, jeg har brugt en kombination af jeres besvarelser til at løse mit problem, derfor delingen af points. Og undskyld den sene tildeling, men jeg har haft travlt på det seneste. --> rvm, macroer er ikke lige mig.
Synes godt om
Ny brugerNybegynder
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.