Schleife seeeeehr langsam
06.06.2013 09:31:49
Julia
habe in einem Modell, das viele Daten beinhaltet, mehrere Schleifen enthalten, um einen Zirkelbezug zu vermeiden.
Die Schleifen sind wahrscheinlich sehr einfach, aber dadurch, dass sie mehrere Reihen und Spalten durchlaufen, braucht die Verarbeitung sehr lange.
Ich würde mich sehr freuen, wenn einer von Euch eine gute Idee hätte, wie ich sie beschleunigen könnte.
Anbei findet Ihr exemplarisch den Quellcode einer der Schleifen.
Vorab vielen Dank für Eure Hilfe.
Viele Grüße,
Julia
Sub IDC_GEN_Add()
Sheets("Timeline_GEN_Add").Select
Application.ScreenUpdating = False
Dim j As Integer
For j = 1 To 150
Dim p As Integer
For p = 1 To 66
'Delete Cells
Cells(242 + (j - 1) * 12, 15 + p).ClearContents
'Goal Seek to consider IDC
Cells(243 + (j - 1) * 12, 15 + p).GoalSeek Goal:=0, ChangingCell:=Cells(242 + (j - 1) * 12, 15 + _
p)
Next p
Next j
Application.ScreenUpdating = True
End Sub