Hallo iedereen
Ik zou graag de array "arrayAvgSeasonalityIndex" die berekend wordt in de functie "calc_Start_Seasonality" afdrukken naast de cell waar de functie wordt aangeroepen in excel. De array bevat "seasonLength + 1"-aantal waarden. De array is niet het resultaat van deze functie, maar ik wil deze gewoon tijdelijk afdrukken.
Bedankt voor jullie hulp!
Vriendelijke groeten
The goose
Ik zou graag de array "arrayAvgSeasonalityIndex" die berekend wordt in de functie "calc_Start_Seasonality" afdrukken naast de cell waar de functie wordt aangeroepen in excel. De array bevat "seasonLength + 1"-aantal waarden. De array is niet het resultaat van deze functie, maar ik wil deze gewoon tijdelijk afdrukken.
Code:
Function calc_Start_Seasonality(Sales As Range, seasonLength As Integer, lastBucket As Integer) As Integer
...
ReDim arrayAvgSeasonalityIndex(seasonLength)
numberOfSeasons = Application.WorksheetFunction.RoundDown(usedBuckets / seasonLength, 0)
For j = 0 To seasonLength - 1
For i = 0 To numberOfSeasons - 1
sumSeasonalityIndex = sumSeasonalityIndex + arraySeasonalityIndex(totalBuckets - j - i * seasonLength)
countSeasonalityIndex = countSeasonalityIndex + 1
Next i
If totalBuckets - j - numberOfSeasons * seasonLength >= firstBucket Then
sumSeasonalityIndex = sumSeasonalityIndex + arraySeasonalityIndex(totalBuckets - j - numberOfSeasons * seasonLength)
countSeasonalityIndex = countSeasonalityIndex + 1
End If
avgSeasonalityIndex = sumSeasonalityIndex / countSeasonalityIndex
arrayAvgSeasonalityIndex(seasonLength - j) = avgSeasonalityIndex
sumSeasonalityIndex = 0
countSeasonalityIndex = 0
Next j
...
calc_Start_Seasonality = resultTest
End Function
Bedankt voor jullie hulp!
Vriendelijke groeten
The goose