Office: (Office 2010) Excel VBA Laufzeitfehler 424 Objekt erforderlich

Hallo zusammen,

ich habe schon verschiedene Antworten zum Laufzeitfehler 424 gefunden, komme aber leider damit doch irgendwie nicht weiter (bin absoluter VBA-Neuling).

Folgendes Makro habe ich erstellt.

Sub Zeilenloeschen()
Dim i As Long
Sheets("FiBu-Download").Select
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 8 Step -1
If Cells(i, 1) < "0" Then Rows(i).Delete
If Cells(i, 2) < "0" Then Rows(i).Delete
Next i
Apllication.ScreenUpdating = True
End Sub

Ich möchte mit diesem Makro erreichen, dass in dem Sheet "FiBu-Download" geschaut wird, welches die letzte benutzte Zeile ist und dann sollen alle Zeilen, in denen sich in Spalte A oder B nichts befindet gelöscht werden.

Hoffentlich habe ich mich verständlich ausgedrückt.

Schon im Vorfeld vielen Dank für Tipps!

VG
Steffi

 

Hallo Steffi,
welche Zeile wird denn als fehlerhaft markiert, wenn Du auf Debuggen gehst?
an sonsten versuche mal
If Cells(i, 1) = "" or Cells(i, 2) = "" Then Rows(i).Delete

 

Hallo Doming,
danke für den Tipp, funktioniert aber leider auch nicht. Bekomme trotzdem den Laufzeitfehler. Wenn ich auf Debuggen geht, markiert er mir gar keine Zeile, oder ich mache dabei auch schon etwas falsch. :-(

 

Dann kommentier erstmal das Screenupdating=false raus, damit Du siehst, was passiert und was nicht.
Setze eine Haltemarke am Anfang der Prozedur und gehe dann mit F8 jede Zeile durch.

edit: jetzt habe ich den Fehler gefunden :-) Kommentiere das Screenupdating nicht aus und guck mal, was Du geschrieben hast.

 

Hmm, passiert auch nichts, außer, dass er erneut den Laufzeitfehler auswirft.

 

Ist auch richtig so, der Fehler ist ja auch noch da. Vergleiche mal Deine beiden Application-Zeilen

 

Ok. Der Laufzeitfehler ist raus, da ich gerade auch schon meinen Schreibfehler gefunden habe. Aber jetzt passiert gar nichts mehr, wenn ich das Makro ausführe.

Wahrscheinlich sollte ich da wohl doch lieber jemanden dran lassen, der sich mit so etwas auskennt.

 

hm? bei mir hat der Code funktioniert

natürlich nur, wenn Du die Löschformeln berichtigst

ich habe es jetzt so verstanden, dass nichts in Spalte A oder B stehen darf, um die Zeile zu löschen, oder?
If Cells(i, 1) = "" Or Cells(i, 2) = "" Then Rows(i).Delete

 

Bei mir ja gestern auch noch, deswegen bin ich ja so total "neben der Spur". Vielleicht sollte ich für heute besser erstmal Schluss machen und am Freitag noch mal von Neuem schaunen.

Danke für Deine Unterstützung!

 

Läuft soweit. Danke! :-)