bestimmte Zeilen per Makro löschen
15.02.2007 17:59:12
Matthias
ich habe hier ein Makro, das diejenigen Zeilen löschen soll, in denen in der 5. Spalte der Ausdruck n.v. steht. So sieht es aus.
Sub Loeschen_3()
'Application.ScreenUpdating = False
Dim lR%, i%
lR = Cells(Rows.Count, 5).End(xlUp).Row
For i = lR To 1 Step -1
If Cells(i, 5) = "n.v." Then Rows(i).Delete
Next i
End Sub
Das Komische ist: Das Makro funktioniert nur, wenn ich statt "n.v." ein anderes Wort eingebe (z.B. Hallo). Mit "n.v." funktioniert es aber nicht. Wie kommt das?
Matthias
Anzeige