Mit folgenen Zeilen schaffe ich es, bei der Eingabe
von A1, A2, A3 oder A4 im genannten Bereich die Schriftfarbe
zu ändern.
Irgendwie funktioniert das aber nicht, wenn die Daten aus einer Auswahlliste einer Gültigkeitsliste kommen.
Außerdem schaffe ich es nicht, dass sich nicht nur die Schriftfarbe ändert, sondern die Schrift soll bei diesen Werten auch Fett werden.
Bei allen anderen Eingaben aus der Gültigkeitsliste soll sich nix ändern.
Wer weiß Rat?
Sub auto_open()
Worksheets("Tabelle").OnEntry = "Farbe"
End Sub
Sub Farbe()
Dim AC As Range, Bereich As Range
Set AC = Application.Caller
Set Bereich = Range("E10:T40")
If Intersect(AC, Bereich) Is Nothing Then Exit Sub
Select Case AC.Value
Case "A1": AC.Font.ColorIndex = 3
Case "A2": AC.Font.ColorIndex = 14
Case "A3": AC.Font.ColorIndex = 5
Case "A4": AC.Font.ColorIndex = 9
Case Else
AC.Font.Color = 0
End Select
End Sub