Hallo!
Ich habe einen Code, der ein Array in einer Schleife mit Zahlen füttert. Zu Testzwecken gebe ich das MIN, MAX und SUM des Arrays aus.
MsgBox "Minimum " & Application.WorksheetFunction.Min(arAnnualValue())
MsgBox "Maximum " & Application.WorksheetFunction.Max(arAnnualValue())
MsgBox "Summe " & Application.WorksheetFunction.Sum(arAnnualValue())
Alle Werte sind grösser 0 und bei MAX und SUM werden die richtigen Werte ausgegeben. Bei MIN steht allerdings immer eine 0 als kleinster Wert in jedem Durchlauf.
Falls noch wichtig, hier ein Codeschnipsel:
Dim arAnnualValue() As Double
For intWeek = 1 To 52
Erase arAnnualValue
ReDim arAnnualValue(40)
For intYear = 1 To 40
i = (StartRow + intWeek) + (intYear - 1) * 52
arAnnualValue(intYear) = Sheets("values").Cells(i, 1)
Next intYear
MsgBox "Minimum " & Application.WorksheetFunction.Min(arAnnualValue())
MsgBox "Maximum " & Application.WorksheetFunction.Max(arAnnualValue())
MsgBox "Summe " & Application.WorksheetFunction.Sum(arAnnualValue())
Next intWeek
Danke,
Steve