Für einen versierten Excelkenner sicher kein Problem, aber ich als Anfänger tue mich sehr schwer damit...Mit Dank im Voraus Yannica
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Intersect(Target, [A1:C3]) Is Nothing Then Exit Sub
Set c = Range("D1:F3").Find(Target.Value)
If Not c Is Nothing Then
c.ClearContents
Else
MsgBox "Die eingegebene Zahl ist nicht mehr vorhanden"
Target.ClearContents
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ber1 As Range, ber2 As Range, berInter As Range
Dim z As Range, z2 As Range
Set ber1 = Range("A1:C3")
Set ber2 = Range("D1:F3")
Set berInter = Intersect(Target, ber1)
If Not berInter Is Nothing Then
For Each z In berInter
Set z2 = ber2.Find(what:=z.Value, LookAt:=xlWhole)
If Not z2 Is Nothing Then z2.Value = ""
Next z
End If
End Sub