Zeile löschen wenn "Application" gefunden wird
16.06.2006 15:13:37
Anton
ich habe einen Laufzeitfehler 424 "Objekt erforderlich"
Es soll in Spalte B jede Zelle auf etwas wie "Application" gesucht werden.
Diese Zeilen sind überflüssig.
Also löschen.
Sub K_ApplicationInSpalteB_ZeilenLöschen()
' Zeilen löschen wenn Zelle in Spalte B "Application" ist
Dim Lrow As Long, i As Long
Lrow = Cells(Rows.Count, 2).End(xlUp).Row
For i = Lrow To 2 Step -1
If Cells(i, 2).Value Like "*Application*" Then
EntireRow.Delete
End If
Next i
End Sub
Wer kann mir bitte weiterhelfen?
Mein Dank geht schon jetzt in Eure Richtung
Servus,
Anton
Anzeige