Problem mit großen Datenfeldern
Liese
ich habe mein Problem in folgende Testprozedur gepackt.
Sub test()
Dim zahl As Double
Dim arr() As Double
ReDim arr(6000)
For t = 0 To 5459
zahl = Int(Rnd(1) * 100000) 'Zufallszahl
Tabelle1.Cells(t + 1, 1) = zahl 'In Zelle(t,1)
arr(t) = zahl 'Zufallszahl in Array
Next t
ReDim Preserve arr(t) 'array neu dimensionieren
Debug.Print Application.WorksheetFunction.Max(arr)
Debug.Print Application.WorksheetFunction.Min(arr)
End Sub
So funktioniert es. Erweiter ich aber die For Schleife auf t=0 to 5460 dann funktioniert es nicht mehr. Und zwar bei allen Worksheetfunktions. Wer hat eine Lösung parat?
Für Hilfe wäre ich echt dankbar!
Anzeige