Löschbefehl auch in Zeile 65535 ausführen
29.06.2006 09:13:20
Peter
P@ulchen hat mir anfangs Woche mit folgendem Code ein Problem gelöst:
Option Explicit
Sub Zeile_loeschen()
Dim x As Integer
Dim ende, iRow As Long
For x = 1 To Sheets.Count
ende = Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row
For iRow = ende To 1 Step -1
If Sheets(x).Cells(iRow, 1) = "löschen" Then Sheets(x).Rows(iRow).Delete
Next iRow
Next x
End Sub
Und zwar wir in jeder Tabelle eines beliebigen Files jede Zeile gelöscht, die in Spalte A das Wort "löschen" enthält.
Nun habe ich festgestellt, dass dieser Code in einer
"Extremsituation" nicht funktioniert. Wenn ich beispielsweise in Feld A65536 (also auf der letzten Zeile) den Eintrag mache, wird diese Zeile nicht entfernt.
Wenn ich den Eintrag in Feld A65535 und A65536 mache, wird beim Ablaufen des Makros nur die Zeile 65536 gelöscht; beim zweiten Ablaufen wird dann die Zeile 65535 gelöscht.
Wie kann dieser "Schönheitsfehler" behoben werden?
Danke für Feedback.
Peter
Anzeige