Bedingte Formatierung mit VBA
06.11.2006 10:17:45
Christian
ich habe mir ein kleines Makro zur bedingten Formatierung der 4. Bedingung gebaut. Leider dauert die Berechnung bei jedem Zellwechsel zu lange (ca. 5sec), obwohl der Zellbereich mit weniger als 100 Zellen nicht allzu groß ist.
Gibt es irgend eine Möglichkeit das etwas effizienter zu gestalten?
Hier der Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zelle As Range
Application.ScreenUpdating = False
For Each zelle In ActiveSheet.Range("B3").SpecialCells(xlCellTypeAllValidation)
With zelle
If .Value = "xxx" Then
.Interior.ColorIndex = 10 'grün
.Font.ColorIndex = 2 'weiß
ElseIf .Interior.ColorIndex = 10 Then
.Interior.ColorIndex = xlNone 'kein Hintergrund
.Font.ColorIndex = 0 'schwarz
End If
End With
Next
Application.ScreenUpdating = False
End Sub
Ich hoffe Ihr könnt mir Helfen. Vielen Dank.
Gruß,
Christian S.
Anzeige