Code wird immer langsamer
12.04.2008 13:55:04
Jenny
Ich habe unten stehenden Code, der auch genau das macht, was er soll.
Aber leider wird er von Runde zu Runde langsamer, daran ändert auch das Gefummel an ScreenUpdating und Calculation nichts.
Weiß jemand von Euch, woran das liegt, bzw. wie man das verhindern kann?
Danke bereits im Voraus!
Sub test()
Dim a%, b%, c%, s&, x&, Z, t!
t = Timer
Set Z = CreateObject("scripting.dictionary")
Cells(4, 1).CurrentRegion.Clear
For a = 1 To 100
For b = 1 To 100
For c = 1 To 100
x = x + 1
Z(x) = a & ";" & b & ";" & c
If x = 1000 Then
Debug.Print Timer - t
t = Timer
s = s + 1
x = 0
Cells(4, s).Resize(Z.Count) = WorksheetFunction.Transpose(Z.items)
End If
Next c
Next b
Next a
End Sub
Grüße von Jenny im Excel-Land