VBA: Zielzeile löschen, wenn Zelle Text enthält?

Question

Ich habe eine Tabelle wie folgt:

Spalte Y entfernen

I Entfernen Entfernen Entfernen wollen, dass der Benutzer in der Lage sein, jede Zeile zu löschen, die von jedem der Texte Entfernen klicken. Dies sollte nur die Zeile löschen, auf die der Benutzer geklickt hat, für die Zielzeile entfernen.

Hier ist mein Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
If Target.Column = 25 And Target.Value = "Remove" Then 
Range("A" & ActiveCell.Row).EntireRow.Delete 
End If 
End Sub 

aus irgendeinem Grund nichts tut.

Ich möchte auch eine Bedingung hinzufügen, die nur diese Zeilen ab Zeile 17 löscht.

Kann mir bitte jemand zeigen, wie man das richtig funktioniert? Dank

Answer 1

versucht diese

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    With Target 
     If .Column = 25 And .Row > 16 And .value = "Remove" Then .EntireRow.Delete 
    End With 
End Sub 

Answer 2

Für mich ist es mit der Workbook_SheetSelectionChange Veranstaltung gearbeitet.

Try this:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 
If Target.Column = 25 And Target.Value = "Remove" Then 
    Range("A" & ActiveCell.Row).EntireRow.Delete 
End If 
End Sub 

Sie können auch überprüfen, ob Ereignisse durch Ausführen aktiviert sind:

Sub EnableEvents() 
    Application.EnableEvents = True 
End Sub