dietrichDSC
Gebruiker
- Lid geworden
- 3 apr 2015
- Berichten
- 14
Hallo,
Om eenvoudig gemiddelde te maken uit temperatuur loggingen zou ik volgende code willen gebruiken.
Kan iemand mij helpen hoe ik een range uit een 2d array haal?
Om eenvoudig gemiddelde te maken uit temperatuur loggingen zou ik volgende code willen gebruiken.
Kan iemand mij helpen hoe ik een range uit een 2d array haal?
Code:
Dim i, ii, j, jj As Integer
Dim datum As String
datum = Format(datum, "dd/mm/yy hh:00")
Set werkblad = ActiveSheet
ReDim a_invoeg(1, 1)
a_invoeg() = Range("a1:c11")
For j = LBound(a_invoeg, 1) To UBound(a_invoeg, 1)
a_invoeg(j, 1) = Format(a_invoeg(j, 1), "dd/mm/yy hh:00")
Next
For j = LBound(a_invoeg, 1) To UBound(a_invoeg, 1)
datum = a_invoeg(j, 1)
[B] a_invoeg(j, 3) = WorksheetFunction.AverageIfs(a_invoeg(1, 2), a_invoeg(1, 1), a_invoeg(j, 1))
[/B]
Next
ActiveSheet.Range("f1").Resize((UBound(a_invoeg) - LBound(a_invoeg)) + 1, 2).Value = a_invoeg
End Sub