den nachfolgenden Code konnte ich hier im Forum klären. Wie müsste der Code geändert werden, wenn ich erreichen möchte, dass im Tabellenblatt "Admin" in den Zellen E2:E7 nur der im Code genannte Text stehen darf. Beim Versuch der Änderung durch nicht genannten Text ansonsten eine MsgBox erscheint und der Inhalt wieder gelöscht wird. Danke schon jetzt für die Rückmeldungen. - Herzliche Grüße - Wolfgang
Sub loeschen()
Dim x As Long
Dim letzte As Long
letzte = Range("A65536").End(xlUp).Row
For x = letzte To 2 Step -1
If Cells(x, 2) = "hat" Or Cells(x, 3) = "am" Or Cells(x, 4) = "Ende" Then
Else
Rows(x).Delete shift:=xlUp
End If
Next
End Sub