Hurtigere alternativ til Sumprodukt

Du kan da prøve denne kode, men i mit testark er den ikke hurtigere
Det aktuelle ark skal være aktiv

Sub nySum()
For t = 1 To 40000
If Cells(t, "B") = Cells(2, "B") And Cells(t, "E") = Cells(2, "E") And Cells(t, "J") > 0 Then x = x + 1
Next
MsgBox ("") & x
End Sub

eller måske en af disse :

{=SUM((B1:B40000=B2)*(E1:E40000=E2)*(J1:J40000>0))}

=(TÆL.HVIS(B1:B40000;B2)+TÆL.HVIS(E1:E40000;E2)+TÆL.HVIS(J1:J40000;">0"))/3

Tak for svar. De to sidste formler giver ikke det ønskede resultat. Jeg kan benytte koden i visual basic. Men hvordan returnerer den resultatet i den ønskede celle?

Hensigten med formlen er, at beregne antal ugentlige besøg.
Hvert besøg genererer to linier, pga. vores systemopsætning.
Linie 1 indeholder kolonne B, E og J data. Linie 2 indeholder kun kolonne B og E data. Jeg kunne derfor blot slette alt linie 2 data. Men for at forhindre fejlsletninger af andre brugere, vil jeg gerne undgå dette.

- Kolonne B indeholder ugenummer.
- Kolonne E indeholder en kundekode.
- Kolonne J indeholder tidsforbrug pr. besøg.

Det er ønsket, at tælle ugentligt antal besøg pr. kundekode. Da der er to linier pr. besøg, vil det medføre at der tælles dobbelt. Dette er grunden til J1:J40000>0.

Jeg håber dette giver indtryk af, hvad jeg gerne vil opnå. Findes der ikke HVIS formler hvor flere kriterier kan inkluderes i beregningen?

Mvh.
MikeC

I stedet for : MsgBox ("") & x
kan du bruge : range("A1")=x ret A1 til ønsket celle
--------------------
Har du også kundekode i linie 2 ?

du kan halvere tiden med :

For t = 1 To 40000 Step 2

Hej,

Jeg har kundekode i alle 40000 linier, og ønsker antal kundebesøg i kolonne R på hver eneste linie. Jeg kan ikke få ovenstående til at give dette.

Mvh.
MikeC

Din formel indikerer at du summerer et kunde/uge af gangen
mener du så en akkumuleret sum ud for denne kunde
eller skal denne kundes timer skrives ud for alle andre kunder også ?

Hej,

Jeg fik løst mit problem i weekenden ved hjælp af nogle hjælpekolonner og pivottabel.

Men tak for input.

Mvh.
Mikec

så luk spørgsmål

OK - Hvordan lukker man et ubesvaret spørgsmål

Indsætte løsning her, marker svar ude til venstre og send.
Derefter kan du markere box med dit navn og klikke accepter

OK - Ved brug af hjælpekolonner kunne mindre ressourcekrævende formler benyttes.