Herbers Excel-Forum - das Archiv
Code beschleunigen
Informationen und Beispiele zu den hier genannten Dialog-Elementen:

|
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