Print array

[the goose]

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.

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

 

[snb]

join(calc_Start_Seasonality)

 

[the goose]

Hallo snb

Is het mogelijk om elke waarde van de array in een aparte cel af te drukken in dezelfde rij als waar de functie waar aangeroepen, startend vanaf de cel naast de functie?

Vriendelijke groeten
The goose