Bedingte Formatierung
25.02.2006 01:31:06
ronaldo
hoffe, dass mir jemand weiterhelfen kann. Da man im Excel nur 3 bedingte Formatierungen eingeben kann, benötige ich eine VBA-Lösung für mehr als 3 Bedingungen. Folgende Lösung habe ich im Forum gefunden:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row < 11 And Target.Column = 1 Then
Select Case Target.Value
Case "A"
Target.Interior.ColorIndex = 3
Case "B"
Target.Interior.ColorIndex = 4
Case "C"
Target.Interior.ColorIndex = 5
Case "D"
Target.Interior.ColorIndex = 6
Case "E"
Target.Interior.ColorIndex = 7
End Select
End If
End Sub
Das funktioniert allerdings nur dann, wenn man in die o.g. Zellen auch die Buchstaben eingibt. Es funktioniert leider nicht, wenn sich das Ergebnis der Zellen per Formel errechnet. Jetzt weiss ich nicht weiter und hoffe, dass mir jemand weiterhelfen kann.