Makro beschleunigen
07.12.2013 14:08:28
Julia
ich habe ein Makro mit dem ich Zellen/Zeilen entsprechend färbe. das Problem ist aber das meine Konstruktion ziemlich lahm wird, je mehr Zeilen in der Tabelle beschrieben sind.
Wie kann ich das ändern?
Sub Farbe()
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 3) 0 Then
Cells(i, 3).Interior.Color = vbGreen
Cells(i, 2).Interior.Color = vbGreen
Cells(i, 1).Interior.Color = vbGreen
Cells(i, 3).Font.Color = vbBlue
Cells(i, 3).Font.Color = vbBlue
Cells(i, 2).Font.Color = vbBlue
Cells(i, 1).Font.Color = vbBlue
End If
If Cells(i, 4) > 0 Then Cells(i, 4).Interior.Color = vbGreen
If Cells(i, 4)
Danke schon malJulia