Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$15" And Target.Count = 1 Then
If Target <> "" Then
Set c = Cells(Application.Match(Target, Range("D13:D20"), 0) + 12, 5)
Application.EnableEvents = False
c.Cells.Copy Target.Offset(2, 0)
Application.EnableEvents = True
Else
With Target.Offset(2, 0)
.Value = ""
On Error Resume Next
.Comment.Delete
End With
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$15" Then
If Target <> "" Then
[Liste].Find(Target, LookAt:=xlWhole).Offset(, 1).Copy Target.Offset(2, 0)
Else
Target.Offset(2, 0).Clear
End If
End If
End Sub