AW: Füllfarbe VBA, Performance
14.01.2009 15:32:00
Tino
Hallo,
bei mir
Timer - i = 2,09375
Sub Test()
Dim Bereich As Range, myZelle As Range
Dim i As Single
i = Timer
'Farbindex der gesucht werden soll
Const SuchFarbe As Integer = 3
'Bereich der durchsucht werden soll
Set Bereich = Range("A1:A20000")
Application.ScreenUpdating = False
For Each myZelle In Bereich
If myZelle.Interior.ColorIndex = SuchFarbe Then
Range(Cells(myZelle.Row, "D"), Cells(myZelle.Row, "U")).Interior.ColorIndex = SuchFarbe
Else
Range(Cells(myZelle.Row, "D"), Cells(myZelle.Row, "U")).Interior.ColorIndex = xlNone
End If
Next myZelle
Application.ScreenUpdating = True
Debug.Print Timer - i
End Sub
Timer - i = 2,083438
Sub Test2()
Dim Bereich As Range, myZelle As Range
Dim i As Single
i = Timer
'Farbindex der gesucht werden soll
Const SuchFarbe As Integer = 3
'Bereich der durchsucht werden soll
Set Bereich = Range("A1:A20000")
Application.ScreenUpdating = False
For Each myZelle In Bereich
If myZelle.Interior.ColorIndex = SuchFarbe Then
Range(Cells(myZelle.Row, 4), Cells(myZelle.Row, 21)).Interior.ColorIndex = SuchFarbe
Else
Range(Cells(myZelle.Row, 4), Cells(myZelle.Row, 21)).Interior.ColorIndex = xlNone
End If
Next myZelle
Application.ScreenUpdating = True
Debug.Print Timer - i
End Sub
Gruß Tino