Herbers Excel-Forum - das Archiv

Code beschleunigen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox
Bild

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

Bild

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
 Bild