Lange dauernder Code
19.12.2005 23:40:29
Lorenz
Mit meinem Code dauerts verdammt lange! (bis zu 3 Minuten)
Ist es igendwie möglich ihn zu beschleunigen?
Wenn ja , wie bitte?
Mein Code: (SumNDKonsole & SumKonsole) sind benannte Formeln.
Private Sub EinsBis31()
Dim iRow As Integer, iCol As Integer
iRow = 4
For iRow = iRow To 2691
With Cells(iRow, 4)
.Formula = "=SumNDKonsole"
.Value = .Value
If .Value = 0 Then .Value = ""
End With
For iCol = 5 To 28
With Cells(iRow, iCol)
.Formula = "=SumKonsole"
.Value = .Value
If .Value = 0 Then .Value = ""
End With
Next
Next
End Sub
Danke u. Grüße
Lorenz
Anzeige