Zellwert auf "" setzen

[Kuwer]

Geht sehr viel kürzer und einfacher mittels Range.Find-Methode:

oder noch viel viel ...

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("K10:M14"), Target) Is Nothing Then
    Range("E1:E45").Replace Target.Value, "", xlWhole
  End If
End Sub

Gruß Uwe