Beste Excel-ers,
Stel: Blad 1 - A2:A5000 = allerlei getallen (*,**)
                     B2:B5000 = allerlei getallen (****)
                     D2 = =IF(AND(B2>4900;B2<5100);"1";"")
                     E2 = =IF(AND(B2>5400;B2<5600);"1";"")
                     F2 = enz
         Blad 2 - I1 ==AVERAGE(A2:A5000)
                      L1 ==AVERAGE(B2:B5000)
(de bedoeling is om een selectie te kunnen maken van getallen tussen de opgegeven waarden)
Voorlopig los ik het met deze macro's op:

Sub 5()
'
'
    Sheets("Blad2").Select
    Range("A2:B5000").Select
    Selection.Clear
    Sheets("Blad2").Select
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Titel=5"
    Sheets("Blad1").Select
    Columns("D").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="1"
    Range("A2:B5000").Select
    Selection.Copy
    Sheets("Blad2").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("Blad1").ShowAllData
    Range("I1").Select
End Sub

Deze macro geeft dus alle getallen tussen 4900 en 5100. Van deze lijst wordt het gemiddelde weergegeven in I1 van blad2. Deze waarde interesseert me het meest.
Nu kan ik verschillende macro's gaan gebruiken om bvb alle getallen tussen 5900 en 6100 te verkrijgen of bvb tussen 7900 en 8100. enz.
Ik zoek een oplossing om één en ander te automatiseren.  In één bepaalde cel wil ik bvb 5000 schrijven. Door te enteren of te klikken op een knop wordt een macro uitgevoerd die hetzelfde kan als hierboven beschreven. dwz Alle getallen tussen 4900 en 5100 worden weergegeven.
Gemakkelijkshalve kan misschien 5000 -2% en 5000 +2% genomen worden.
Het moet dus ook mogelijk zijn om bvb 9750 in te geven.
(getallen weergeven 9750 -2% en 9750 +2%)

Hopelijk is deze uitleg een beetje duidelijk.
Helaas kan ik van hieruit (m'n werk) geen voorbeeldje posten en zit ik thuis voorlopig zonder PC. (in herstelling)
Dank voor jullie begrip en jullie hulp.
Dimy

               

Hallo,

alle getallen tussen 4900 en 5100. Van deze lijst wordt het gemiddelde weergegeven

Dit lijkt me de kern van je vraag te zijn. Ik lees hier 2 functies in: Filter en Subtotaal.

Filter gebruik je al, maar blijkbaar heb je nog geen weet van "aangepast" filter, je hebt er althans geen gebruik van gemaakt. Dit zal je wat kolommen besparen.
Het gebruik van SUBTOTAAL in een formule, is ook nuttig voor jou, denk ik.

Men kent mij als een code-freak, maar het lijkt me het beste om het eerst eens te worden over de manuele ingrepen: daarna kan de zaak dan geautomatiseerd worden.

Filteren kan op "aangepaste" (custom) manier. Plaats autofilter, selecteer "aangepast" en kies opties: in jouw voorbeeld "kleiner dan ..." en "groter dan ..."
De formulefunctie SUBTOTAAL, met als functiegetal "1", berekent het gemiddelde van de ZICHTBARE cellen.
=SUBTOTAAL(1;A2:A11)

Hierbij een klein voorbeeldje.
NIET GEFILTERD
   A     B    
 1 LIJST 14,5 
 2 4          
 3 8          
 4 1          
 5 3          
 6 7          
 7 9          
 8 2          
 9 6          
10 5          
11 100        

test
[Table-It] version 07 by Erik Van Geit
RANGE   FORMULA
B1      =SUBTOTAL(1,A2:A11)

[Table-It] version 07 by Erik Van Geit
De som van A2:A11 = 145, het gemiddelde is dus 14,5.


Nu gaan we, zoals gevraagd, het gemiddelde weergeven van getallen tussen 2 bepaalde waarden.
GEFILTERD
  A     B   
1 LIJST 7,5 
3 8         
6 7         
7 9         
9 6         

test
[Table-It] version 07 by Erik Van Geit

De filter werd aangepast: alle getallen tussen 5 en 15 worden weergegeven.
Het gemiddelde blijkt 7,5 te zijn. (inderdaad (6+7+8+9)/4)
De getallen 5 en 15 kunnen in cellen geplaatst worden om dan een macro te runnen...

beste groeten,
Erik

Dimy,

Sorry voor m'n late reactie

Dat geeft toch niets. Zeker niet als je zo'n probleem hebt. Succes met de reparatie.

Groet, Leo