Select-Case Anweisung
Andreas
habe eine Select-Case Anweisung, die nicht ganz Funktioniert.
Der bedingte Bereich ist von A2:E15 festgelegt.
Wenn ich aber außerhalb des Bereiches Zahlen eingebe werden dort auch die Zellen eingefärbt.
Wo liegt der Fehler.
Danke für die Hilfe
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Bereich
Dim Zelle As Range
Set Bereich = Range("A2:E15")
For Each Zelle In Bereich
Select Case Target.Value
Case Is = ""
Target.Interior.ColorIndex = 0
Case Is Anzeige