Worksheet functions

[harolda1980]

Ik ben bezig met een rekenmodel dat voorraad technische berekeningen maakt op een database. Daarvoor ga ik enkele worksheet functions gebruiken

Min
Max
Gem

Deze laat ik rekenen over de 52 weken van een jaar. Maar halverwege het jaar wil ik dat hij tot de huidige week rekent. Bijvoorbeeld week 20. En dan dient hij uit de 20 kolommen de juiste waarden op te halen.

Dit is een voorbeeld alleen is deze voor 13 vaste altijd aanwezige kolommen en dus niet voor een variabel aantal kolommen!

                ol = Application.WorksheetFunction.Max(.Cells(iz, 116).Value, .Cells(iz, 117).Value, .Cells(iz, 118).Value, .Cells(iz, 119).Value, .Cells(iz, 120).Value, .Cells(iz, 121).Value, .Cells(iz, 122).Value, .Cells(iz, 123).Value, .Cells(iz, 124).Value, .Cells(iz, 125).Value, .Cells(iz, 126).Value, .Cells(iz, 127).Value, .Cells(iz, 128).Value)

 

[snb]

ol = WorksheetFunction.Max(.Range("A116:A128"))

 

[harolda1980]

Ja logisch maar nu de volgende

op rij 15 een berekening wil laten uitvoeren! vanaf kolom 10 tot 20.

En daarna:

op rij 19 een berekening wil laten uitvoeren! vanaf kolom 12 tot 22.

De de kolom en Rij verwijzing zou enig sinds variabel moeten zijn!

 

[snb]

op rij 15 een berekening wil laten uitvoeren! vanaf kolom 10 tot 20.

c1=15
c2=10
c3=1
c4=20

ol = WorksheetFunction.Max(.cells(1,1).offset(c1-1,c2-1).resize(c3,c4-c2))

op rij 19 een berekening wil laten uitvoeren! vanaf kolom 12 tot 22
c1=19
c2=12
c3=1
c4=22

ol = WorksheetFunction.Max(.cells(1,1).offset(c1-1,c2-1).resize(c3,c4-c2))