Code beschleunigen
10.10.2004 14:58:40
VolkerM
Habe habe folgendes Marko zum bedingten Löschen von Einträgen innerhalb eines Bereiches erstellt:
Private Sub Worksheet_Activate()
Dim I As Integer
Dim K As Integer
For I = 5 To 19
For K = 2 To 32
If (Cells(3, K).Value = "." _
Or Cells(3, K).Value = "-") Then
Cells(I, K).ClearContents
End If
Next
Next
End Sub
Es funktioniert auch soweit, nur leider benötigt es doch ne ganze Zeit.
Kann man die Ausführung beschleunigen ?
Vielen Dank im Voraus.
Gruß Volker