optæl enheder mellem 450 og 800

Så skal du igang med VBA!

Dim Optælling As Integer
Dim OffsetCelle As Integer

Optælling = 0
OffsetCelle = 0

For X = 0 To 10
   
    If Range("A1").Offset(X, 0) > 450 And Range("A1").Offset(X, 0) < 800 Then
        Optælling = Optælling + 1
    End If
   
    OffsetCelle = OffsetCelle + 1

Next X
   
Range("A12") = Optælling

hvor kan jeg indsætte det !??

har ikke prøvet at tilføje VBA til et excel ark så håber du kan hjælpe

Ok... lave en command button, dobbelt kli på den, og indsæt denne kode!

=SUMPRODUKT((A1:A10>=450)*(A1:A10<=800)*1)

eller bare

=SUMPRODUKT((A1:A10>=450)*(A1:A10<=800))

alternativ, selvom jeg bedst kan lide sumprodukt-formlen :-)
=TÆL.HVIS(A1:A10;">=450")-TÆL.HVIS(A1:A10;">800")

okay lige et hurtigt spm.

hvis nu jeg vil kigge på det som jeg gør nu men så at jeg ud fra hvert tal i B har et nr hvordan kan jeg tælle disse sammen !?

altså hvis vi antager at der er 6 tal mellem 450 og 800 i A fra 1 til 10 og ud for hvert tal fra 1 til 10 i B står der evt. flg.

TAL    A      B
1    256    3
2    652    2
3    435    1
4    766    3
5    783    4
6    1000    2
7    635    1
8    674    5
9    977    3
10    562    0

så er der 6 mellem 450 til 800 hvis man så tager tallene i B ud for hvert tal hvor tallet er mellem 450 tl 800 så er værdien 15 hvordan kan jeg gøre så den selv finder ud af det !?

=SUMPRODUKT((A1:A10>=450)*(A1:A10<=800)*(B1:B10))

Kabbak Vil du lægge et svar og så lige en sidste ting kan man via det du har lavet også tælle Total A sammen altså de steder hvor A er mellem 450 og 800 tager den A tallet og ganger med B tallet og lægger det sammen tilsidst så man i ovenstående eks. citat 01/02-2006 17:52:56 vil få tallet.

(652x2)+(766x3)+(783x4)+(635x1)+(674x5)= Total A / med værdi 15 = Total GN. A

Jeg ved ikke hvad du skal bruge det til, men ja:

=SUMPRODUKT((A1:A10>=450)*(A1:A10<=800)*(B1:B10)*(A1:A10))/SUMPRODUKT((A1:A10>=450)*(A1:A10<=800)*(B1:B10))


du glemte denne
10    562    0
den bliver også regnet med i antallet, men ved den sidste formel her, giver den værdien 0, for 562 x 0 = 0

Det du har i kolonne B er det vægtningen af tallet. ?

det er til et laget kort hvor jeg evt godt kunne tænke mig at vide værdien af et laget hvor netto er mellem 450 til 800 kr. så jeg ved hvor GN netto er henne det det evt ikke er 625 som er mellem 450 og 800 men evt kunne være 600 eller 700.

håber du forstår men mange tak makker ^^

har dog et lille problem har lavet dette i et felt

=SUMPRODUKT((SSOUND!C4:C14>=1)*(SSOUND!C4:C14<=5000)*(SSOUND!F4:F14)*(SSOUND!C4:C14))/SUMPRODUKT((SSOUND!C4:C14>=1)*(SSOUND!C4:C14<=5000)*(SSOUND!F4:F14))

så skriver den bare #DIVISION/0!
den kan ikke regne det ud hvorfor !? den henter jo da fra ARK SSOUND og værdierne er i C4 til C14 og i F4 til F14 godt nok kan nogle af filterne være tomme men det giver jo så 0 både i C(x) og tilsvarende F(x)

SUMPRODUKT((SSOUND!C4:C14>=1)*(SSOUND!C4:C14<=5000)*(SSOUND!F4:F14))

er det så ikke fordi resultatet af denne giver 0

ja...

men mange tak igen ^^