Performance verbessern
12.05.2004 11:08:50
KleinKatha
innerhalb eines Makros führe ich folgende Funktion aus.
z = Worksheets("data").UsedRange.Rows.Count
For i = 2 To z
For Each r In Range(Cells(2, 40), Cells(z, 40))
r.NumberFormat = "0"
If Cells(i, 2) And Cells(i, 3) "00.00.0000" Then
r.FormulaR1C1 = "=RC[-37]-RC[-38]"
r.Value = r.Value
Else
Cells(i, 40) = 0
End If
Next
Next i
Die Funktion soll den Zeitraum zwischen zwei Datums ;o) berechnen. Damit es keine Probleme bei leeren Zellen (00.00.0000) gibt, muss ich meiner Meinung nach mit der Prüfung Cells(i, 2) And Cells(i, 3) "00.00.0000" arbeiten. Im Moment benötigt Excel für die Berechnung von 90 Zeilen ca. 1 Minute. Da stimmt doch irgendwas nicht!?
Kann mir jemand sagen, wie ich die Funktion optimieren kann, damit die Laufzeit nicht so lange ist?
Danke
Katharina