ich habe folgenden Code, mit dem eigentlich der Inhalt der ganzen Zeile gelöscht werden soll, sofern in der Spalte 2 die Wörter closed bzw. stopped auftauchen...Allerdings ist es im Moment so, dass nur der Inhalt in Spalte 1 gelöscht wird und beispielsweise der Inhalt in Spalte 3 der entsprechenden Zeile stehen bleibt...Wie muss ich den Code hierzu umändern? Vielen Dank im Voraus!!
Hier noch mein Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngRow As Long
If Not Intersect(Target, Columns(2)) Is Nothing Then
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
For lngRow = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
With Cells(lngRow, 2)
If .Value = "closed" Or .Value = "stopped" Then Rows(lngRow).Delete
End With
Next lngRow
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Application.CalculateFullRebuild
End If
End Sub