bei NEIN Zellinhalt löschen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim WsI As Worksheet
Dim C As Byte
Set WsI = Worksheets("Schutzziel")
C = Target.Column
On Error GoTo Ende:
With WsI
If C = 2 And Target <> "" Then
If MsgBox(Chr(10) & Chr(10) & _
"    Es wurde ein neuer Eintrag erkannt ,  der bisher            " & Chr(10) & _
"    noch nicht im Gültigkeitsbereich definiert wurde  !         " & Chr(10) & _
"                                                                " & Chr(10) & _
"    ----------------------------------------------------------- " & Chr(10) & _
"                                                                " & Chr(10) & _
"    Wollen Sie den Eintrag    [  " & Target & "   ]   " & Chr(10) & _
"                                                                " & Chr(10) & _
"    nun in den Gültigkeitsbereich übernehmen ?                  " & Chr(10) & Chr(10) & Chr(10) _
, 36, "Neuer Eintrag erkannt ...") = vbNo Then Exit Sub
.Range("B3:B203").Sort .Range("B3"), xlAscending
End If
End With
Ende:
End Sub