Zeilen löschen klappt nur teilweise
Joachim
ich ermittle die Anzahl der Zeichen in den Zellen A2 bis A36432. Die Zeilen, wo die Anzahl = 14 ist, sollen gelöscht werden. Es kommen nur 14- bzw. 15-stellige Zeichen vor.
Application.ScreenUpdating = False
For i = 2 To last
Range("N" & i) = Len(Range("A" & i))
Next i
For i = 2 To last
If Range("N" & i) = 14 Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
Wenn ich das laufen lasse, "übersieht" das Makro einige 14-stellige. Erst der 6. Lauf des Makros führt dazu, dass alle gelöscht sind. Ich hatte das schon in einem Block, also die IF-Abfrage zielte auf Len=14, aber da blieben auch welche übrig.
Ich versteh's nicht. Warum werden nicht beim ersten Lauf alle Zeilen, wo in Spalte N 14 drinsteht, gelöscht?
Gruss
Joachim