ich möchte den Wert 1 in Spalte F suchen. Wenn keine Übereinstimmung soll die ganze Zeile gelöscht werden.
Wie geht das?
Gruß Andi
Sub Nicht1Loeschen
Dim i as Integer
i=1
With ActiveSheet
While .Cells(i,6).Value<>""
If .Cells(i,6).Value<>1 then
.Cells(i,6).EntireRow.Delete
End If
i=i+1
Wend
End With
End Sub