Hallo zusammen,
ich habe eine Excel Tabelle, in der in der ersten Spalte (A) entweder eine -1 oder nichts steht. Ich möchte gerne, dass automatisch alle Zeilen mit -1 in der ersten Spalte gelöscht werden.
Dazu habe ich folgendes Modul im VBA geschrieben:
Sub minus1löschen()
Dim i As Integer
Dim n As Integer
i = Cells(Rows.Count, 1).End(xlUp).Row
For n = 1 To i
If Cells(n, 1).Value = -1 Then
Rows(n).Select
Selection.Delete Shift:=xlUp
End If
Next
End Sub
Einmal kann ich es ausführen und die erste Zeile mit -1 in Spalte A wird gelöscht. Beim zweiten Aufrufen kommt es aber zu einer Fehlermeldung (Laufzeitfehler '6': Überlauf) und diese Zeile wird markiert:
i = Cells(Rows.Count, 1).End(xlUp).Row
Kann mir jemand sagen, wo mein Fehler liegt, oder mir eine alternative Lösung für mein Problem vorschlagen?
Ich bin sehr dankbar über jede Hilfe!
Liebe Grüße
Kristina |