|
Moin ihr Cracks! ;)
Ich finde eure Schleifen ja toll, biete Euch aber einen Wettkampf an.
Voraussetzung:
Spalte A mit 10.000 Zufallszahlen gefüllt (.Value = .Value)
Meine Version setzt die obige Formel in VBA um.
Laufzeit: 0,02 Sekunden!
Ich glaube nicht, dass die Schleifen auch nur unnähernd so schnell sind (werde ich aber gleich mal testen).
Mein Code:
Sub RPP()
Dim Start&
Start = Timer
Application.ScreenUpdating = False
With Range(Cells(1), Cells(1).End(xlDown)).Offset(0, 1)
.Formula = "=IF(MOD(ROW(),5)=0,AVERAGE(INDEX(A:A,ROW()-4):INDEX(A:A,ROW())),"""")"
.Copy: .PasteSpecial xlPasteValues
End With
With Application
.CutCopyMode = False
.Goto Cells(1)
.ScreenUpdating = True
End With
Debug.Print Timer - Start
End Sub
Gruß Ralf
|