Code beschleunigen

• Code beschleunigen von Mario vom 31.10.2003 12:37:07
  • Hier ist dein Turbo ;-) - von Thomas am 31.10.2003 13:19:16

Betrifft: Code beschleunigen
von: Mario
Geschrieben am: 31.10.2003 12:37:07
Mahlzeit miteinander.

Bei mir dauert folgende Berechnung 7,5 Sekunden. Das ist mir eigentlich zu lange. Hat vielleicht jemand einen Tip, wie man das ganze beschleunigen könnte.

Danke und Gruß aus Berlin
Mario


For i = 0 To ListBox34.ListCount - 1
GesamtToreFT = 0
GesamtToreHT = 0
aktST = ListBox34.List(i, 0)
For j = 3 To 526
If Worksheets("Tippzettel").Range("B" & j) = aktST & " :" Then
GesamtToreFT = WorksheetFunction.Sum(Range("Tippzettel!Q" & j + 2 & ":" & "Q" & j + 10)) + WorksheetFunction.Sum(Range("Tippzettel!S" & j + 2 & ":" & "S" & j + 10))
GesamtToreHT = WorksheetFunction.Sum(Range("Tippzettel!T" & j + 2 & ":" & "T" & j + 10)) + WorksheetFunction.Sum(Range("Tippzettel!V" & j + 2 & ":" & "V" & j + 10))
ListBox35.AddItem (GesamtToreFT)
ListBox37.AddItem (GesamtToreFT / 9)
ListBox36.AddItem (GesamtToreHT)
ListBox38.AddItem (GesamtToreHT / 9)
End If
Next j
Next i

Betrifft: Hier ist dein Turbo ;-)
von: Thomas
Geschrieben am: 31.10.2003 13:19:16
Hi Mario,
stell mal folgenden Code an den Anfang deiner Prozedur(en):

Application.ScreenUpdating = False 'Abschalten der Bildschirmaktualisierung
Application.Calculation = xlManual 'Autom. Zellberechnung abschalten

...und am Ende schaltest du alles wieder ein:

Application.ScreenUpdating = True
Application.Calculation = xlAutomatic

Bei mir wirkt es Wunder...

Gruß,
Thomas