Makro beschleunigen bitte
13.02.2007 17:09:21
Henrik
habe folgende bausteine in einem Makro, die auch funktionieren.
For n = 1 To maxi
Worksheets("Auswertung").Cells(4 + n, 38).FormulaR1C1 = "=IF(AND(HOUR(Daten!R" & 4 + n & "C[-25])>=HOUR(R7C37),HOUR(Daten!R" & 4 + n & "C[-25])
For n = 1 To maxi
If Worksheets("Auswertung").Cells(4 + n, 38).Value = "nix" Then
Worksheets("Auswertung").Cells(4 + n, 38).Delete Shift:=xlUp
n = n - 1
End If
Next n
die ertse for schleife ist schön schnell.Das Problem ist die zweite for schleife. da kann ich nebenbei kühe melken. (anmerkung: der wert von maxi kann bis zu 36000 erreichen.)
hat jemand eine idee wie ich das beschleunigen kann?
kann ich die schleifen kombinieren oder gibt es eine andere Möglichkeit, die Zellen mit dem Wert NIX zu löschen?
Danke im voraus.
henrik