Hallo vba-ers,
Op dit forum ben ik al een aantal keer vooruit geholpen en naarmate ik verder puzzel kan ik mezelf steeds verder redden binnen vba.
Echter momenteel wil ik een minimum bepalen. Echter de waarde die mee mogen doen voor het bepalen van een minimum moeten aan een voorwaarden voldoen.
De oplossingen van deze oplossing wil ik in een array opslaan om later weg te schrijven op een werkblad.
Ik had verwacht de oplossing te kunnen vinden met;
worksheetfunction.dmin(arg1,arg2,arg3) ,
echter deze formule blijft een error retourneren.
Met de code hierboven blijf ik een error krijgen. De error luidt als volgt:
Eigenschap DMIN van klasse worksheetfunction kan niet worden opgehaald.
Ik heb op de plek van arg 1 de range van de waarde waaruit het minimum bepaald moet worden.
Hij mag alleen de waarden pakken op de positie dat arg3 gelijk is aan de waarden uit de range van arg2.
Kan iemand mij hierin helpen?
Er wordt gebruik gemaakt van excel 2013
Met vriendelijke groet,
Op dit forum ben ik al een aantal keer vooruit geholpen en naarmate ik verder puzzel kan ik mezelf steeds verder redden binnen vba.
Echter momenteel wil ik een minimum bepalen. Echter de waarde die mee mogen doen voor het bepalen van een minimum moeten aan een voorwaarden voldoen.
De oplossingen van deze oplossing wil ik in een array opslaan om later weg te schrijven op een werkblad.
Ik had verwacht de oplossing te kunnen vinden met;
worksheetfunction.dmin(arg1,arg2,arg3) ,
echter deze formule blijft een error retourneren.
Code:
ReDim sn_ll(lastrow - 3)
For h = 0 To UBound(sn_ll)
sn_ll(h) = WorksheetFunction.DMin(Worksheets("Rekenblad").Range(Sheets("Rekenblad").Cells(3, 8 + ((b - 1) * 7)), Sheets("Rekenblad").Cells(lastrow, 8 + ((b - 1) * 7))) _
, Sheets("rekenblad").Range(Sheets("Rekenblad").Cells(3, 3), Sheets("rekenblad").Cells(lastrow, 3)), _
Sheets("Rekenblad").Cells(h + 3, 3).Value)
Next h
Worksheets("Rekenblad").Range(Sheets("Rekenblad").Cells(3, 13 + ((b - 1) * 7)), Sheets("Rekenblad").Cells(lastrow, 14 + ((b - 1) * 7))).Value = Application.WorksheetFunction.Transpose(sn_ll)
Met de code hierboven blijf ik een error krijgen. De error luidt als volgt:
Eigenschap DMIN van klasse worksheetfunction kan niet worden opgehaald.
Ik heb op de plek van arg 1 de range van de waarde waaruit het minimum bepaald moet worden.
Hij mag alleen de waarden pakken op de positie dat arg3 gelijk is aan de waarden uit de range van arg2.
Kan iemand mij hierin helpen?
Er wordt gebruik gemaakt van excel 2013
Met vriendelijke groet,