Zeilen löschen
Gerhard
kann mir jemand sagen, warum folgender Code nicht funktioniert, welchen Fehler mache ich?
Sub Löschentest()
Dim intI As Integer
For intI = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If ActiveSheet.Cells(intI, 1).Value not Like 'A*' And ActiveSheet.Cells(intI, 1).Value not Like 'E*' Then
ActiveSheet.Cells(intI, 1).EntireRow.Delete
End If
Next
End Sub
Ich möcht alle Zeilen löschen, welche in Spalte A mit "A" oder "E" beginnen.
Danke Gerhard
Anzeige