Ich hab hier ein Problem
Ich möchte per vba alle Zeilen löschen wenn in der Spalte L das Wort inaktiv auftaucht.
Wie mach ich das am besten?
MfG
Peter
Sub Del_Inaktiv()
Dim tarWks As Worksheet
Dim i As Integer
Set tarWks = Worksheets("Tabelle1")
For i = 20 To 1 Step -1
If InStr(1, UCase(Cells(i, 12)), "INAKTIV") > 0 Then
Rows(i).Delete
End If
Next i
End Sub
Option Explicit
Public Sub i()
Dim i As Long
For i = Range("L65536").End(xlUp).Row To 1 Step -1
On Error Resume Next
If WorksheetFunction.CountIf(Cells(i, 12), "*inaktiv*") > 0 Then Cells(i, 12).EntireRow.Delete
Next
End Sub