Maks funktion i vba

x = Application.WorksheetFunction.Max(Sheets("Ark1").Range("A2:A100"))

yes. Tak for det

jeg sidder og roder med en anden temmelig lang formel, som jeg ønsker at få samme løsning på. Men kan ikke få "oversat" den til en application.worksheetsfunction....

Er det noget du kan hjælpe med?
Hvis ikke er det også ok, du har jo svaret på mit oprindelige spørgsmål :-)

formel:
=SUMPRODUKT(((('2008'!$C$2:$C$50000)>=$B$1)*(('2008'!$C$2:$C$50000)<=$B$2)*(('2008'!$D$2:$D$50000)=$A$5)*(('2008'!$E$2:$E$50000)=$A6)*'2008'!$I$2:$I$50000))/60

vba:
WorksheetFunction.SumProduct((((Sheets("2008").Range("C2:C50000")) >= Sheets("samlettid").Range("B1")) * ((Sheets("2008").Range("C2:C50000")) <= Sheets("samlettid").Range("B2")) * ((Sheets("2008").Range("D2:D50000")) = Sheets("samlettid").Range("A5")) * ((Sheets("2008").Range("E2:E50000")) = Sheets("samlettid").Range("A6")) * Sheets("2008").Range("I2:I50000"))) / 60

y = Application.WorksheetFunction.SumProduct((((Sheets("2008").Range("C2:C50000")) >= Sheets("samlettid").Range("B1")) * ((Sheets("2008").Range("C2:C50000")) <= Sheets("samlettid").Range("B2")) * ((Sheets("2008").Range("D2:D50000")) = Sheets("samlettid").Range("A5")) * ((Sheets("2008").Range("E2:E50000")) = Sheets("samlettid").Range("A6")) * Sheets("2008").Range("I2:I50000"))) / 60

jeg har ikke løst problemet. jeg har blot indsat hele koden ovenfor så I bedre kan se problemet :-)

prøv
x = Evaluate("=SUMPRODUKT(((('2008'!$C$2:$C$50000)>=$B$1)*(('2008'!$C$2:$C$50000)<=$B$2)*(('2008'!$D$2:$D$50000)=$A$5)*(('2008'!$E$2:$E$50000)=$A6)*'2008'!$I$2:$I$50000))/60")

den skriver desværre #NAVN?
Jeg har forsøgt at præcisere alle arkenes navne i min oprindelige formel. Den virker som den skal.

Men den virker ikke når den bliver lavet til vba.

=SUMPRODUKT(((('2008'!$C$2:$C$50000)>=samlettid!$B$1)*(('2008'!$C$2:$C$50000)<=samlettid!$B$2)*(('2008'!$D$2:$D$50000)=samlettid!$A$5)*(('2008'!$E$2:$E$50000)=samlettid!$A6)*

Sub beregn_samlettid2()
x = Evaluate("=SUMPRODUKT(((('2008'!$C$2:$C$50000)>=samlettid!$B$1)*(('2008'!$C$2:$C$50000)<=samlettid!$B$2)*(('2008'!$D$2:$D$50000)=samlettid!$A$5)*(('2008'!$E$2:$E$50000)=samlettid!$A6)*'2008'!$I$2:$I$50000))/60")
Sheets("samlettid").Range("e1").Select
Sheets("samlettid").Range("e1") = x
End Sub

prøv lige
x = Evaluate("=SUMPRODUCT(((('2008'!$C$2:$C$50000)>=$B$1)*(('2008'!$C$2:$C$50000)<=$B$2)*(('2008'!$D$2:$D$50000)=$A$5)*(('2008'!$E$2:$E$50000)=$A6)*'2008'!$I$2:$I$50000))/60")

JEP. Så var den der.
Mange tak for hjælpen.
Den får jeg meget gavn ud af.

Så mangler vi kun svaret. :-)

kommer her :-)