Code beschleunigen
31.10.2003 12:37:07
Mario
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