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

Beiträge aus den Excel-Beispielen zum Thema " Zahlen aus Zeichenketten auslesen"