löscht nicht alles
14.06.2004 10:43:21
Rene
ich habe hier ein Makro was mir Zeilen löscht wenn in einer Zellen ein bestimmter Wert steht. Nur gibt es da einen Fehler! Soweit werden alle Zeilen gelöscht die es betrifft, NUR EINE ZEILE DAVON BLEIBT IMMER STEHEN.
Was muss an dem Makro geändert werden?
Sub löschen_von_12345()
For i = 1 To Cells(Rows.Count, 13).End(xlUp).Row ' -> 13 für die Spalte M
On Error Resume Next
If Cells(i, 13).Value = "12345" Then ' -> 13 Spalte M, "12345" Suchwert
Rows(i).Delete
End If
Next
End Sub
Danke und Gruß
Anzeige