Frage 1: Könnte man die CASE Anwendung etwas kürzer gestalten ?
Frage 2: Wenn ich den Wert in C3:A154 ändere, bleibt die Formatierung bestehen.
Zb. ich ändere den Wert "E1" in "1"
Hätte jemand eine Hilfe anzubieten?
Gruß
Heinz
'Bedingte Formatierung
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C3:AF154")) Is Nothing Then
For Each Target In Target
Select Case Target
Case "E1"
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 2
Case "E2"
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 2
Case "E3"
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 2
Case "E11"
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 2
Case "E12"
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 2
Case "E13"
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 2
Case "E21"
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 2
Case "E22"
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 2
Case "E23"
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 2
Case "E31"
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 2
Case "E32"
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 2
Case "E33"
Target.Interior.ColorIndex = 5
Target.Font.ColorIndex = 2
' hier weitere Case Anweisungen
End Select
Next Target
End If
End Sub