Löschvorgang beschleuningen
12.02.2008 14:29:25
Christian
habe leider ein kleines Laufzeitproblem.
Ich merke mir in einem Array welche Zeilen ich verwende. In dem folgenden Code möchte ich nun bestimmte Zellen einer Zeile löschen die nicht verwendet werden.
Das Array ist schon der größe nach sortiert jedoch bei 3000 Zeilen dauert dieser vorgang zur Zeit etwa 1-2 sekunden pro zeile. Würde mich freuen wenn jemand einen Vorschlag hat wie ich die Laufzeit verkürzen könnte.
For s = 1 To UBound(materialArray, 1)
Do While i "" Then
wkbwksData.Cells(i, 4).Value = ""
wkbwksData.Cells(i, 25).Value = ""
wkbwksData.Cells(i, 26).Value = ""
wkbwksData.Cells(i, 28).Value = ""
wkbwksData.Cells(i, 29).Value = ""
wkbwksData.Range("BH" & i & ":IO" & i).Value = ""
wkbwksData.Range("AB" & i & ":AC" & i).Value = ""
wkbwksData.Range("AE" & i & ":AF" & i).Value = ""
wkbwksData.Range("AH" & i & ":AI" & i).Value = ""
wkbwksData.Range("AK" & i & ":AL" & i).Value = ""
wkbwksData.Range("AN" & i & ":AO" & i).Value = ""
wkbwksData.Range("AQ" & i & ":AR" & i).Value = ""
wkbwksData.Range("AT" & i & ":AU" & i).Value = ""
wkbwksData.Range("AW" & i & ":AX" & i).Value = ""
wkbwksData.Range("AZ" & i & ":BA" & i).Value = ""
wkbwksData.Range("BC" & i & ":BD" & i).Value = ""
End If
i = i + 1
Loop
i = i + 1
Next s
Gruß
Christian