Office: Zeile löschen wenn Bedingung erfüllt

Hallo zusammen,

folgendes Problem stellt sich mir: Ich habe in einer Excel-Datei mehrere Sheets. In den jeweiligen Sheets sind Daten über eine WEB-Abfrage importiert worden und werden auch täglich aktualisiert.

Die Daten enthalten allerdings auch Fehler, z. B. wenn der Wert 0 ist. Da ich diese Daten weiterverarbeite, darauf angewiesen bin, dass sie fehlerfrei sind, möchte ich folgendes über ein Macro erreiche: lösche alle Zeilen in den jeweiligen Sheets, in denen in einer Zelle in der Spalte F in den Zeilen 3 - 53 der Wert 0 steht.

Folgendes hatte ich mal probiert, hat aber nicht funktioniert - es wurden nur die ersten beiden Zeilen gelöscht die leer waren, was nicht passieren darf:
Sub bedingte_Zeilenloeschung()
lz = Cells(Rows.Count, 6).End(xlUp).Rows.Row
For t = lz To 2 Step -1
If Cells(t, 6).Value = "0" Then
Rows(t).Delete Shift:=xlUp
End If
Next t
End Sub

Hat jemand einen Tipp, wie das Problem zu lösen wäre? Danke schon mal für jegliche Unterstützung.


Beste Grüße,
topsy

:)

 

das liegt wohl daran das kein Text in der Zelle steht.

 

Das meinte Hajo wohl:
Code:

 

Okay, die Zeile in der die Zelle mit 0 steht ist schon mal weg. Vielen Dank für die Unterstützung.

Problem ist jetzt nur, dass mit Ausführung des Macros auch die erste Zeile verschwindet. *upps

Eigentlich sollten die Zeilen (nach der Zeile mit der Zelle 0) nur nachrücken.

 

das kann nicht sein da das Makro nur bis Zeile 2 läuft.

 

Vielleicht ja auch die 2. Zeile? Sind ja beide leer.

 

das kannst nur Du feststellen, da Du die Datei siehst.
Leer soll ja gelöscht werden, damit wir Zeile 2 gelöscht. Leer ist gleich 0.
Du hast keine Prüfung ""

 

Kann ich nicht definieren, dass die Prüfung, ob Zelle = 0, erst ab der 3. Zeile (und z. B. dann bis einschließlich Zeile 60) erfolgt?

 

Code:

 

Genau das wars!!! Vielen Dank an alle!!!

 

Ein Problem hat sich jetzt noch ergeben:

Ich möchte das o. g. Makro in vielen verschiedenen (aber nicht allen!!!) Sheets meiner Excel-Datei ausführen. Ich habe den Makro-Code jetzt in alle relevanten Tabellen des VBA-Projects eingetragen und sie funktionieren auch. Jedoch muss ich jetzt auf alle Tabellen einzeln erst anclicken und dann das Makro für jede einzeln "ausführen".

Kann man irgendwo einstellen, dass das Makro für alle definierten Tabellen mit einem Mal ausgeführt wird?

 

Hallo topsy76,

so funktioniert es bei mir: Code:

 

Hallo Hasso,

danke schon mal.

Muss der Code dann in jedem sheet eingetragen werden?


Beste Grüße,
topsy76

 

Hallo topsy76,

nein, den trägst du in ein allgemeines Modul ein und kannst ihn dann per Button oder ein Ereignis (z.B. Öffnen der Mappe) aufrufen.

Wenn du deine Datei hier hochladen würdest, könnte ich dir das konkreter zeigen.

 

Hab die Datei anbei.

Kurz zur Erklärung:
In den Zeilen 4-69 sind indirekte Verweise (weil ich im oberen Bereich mit weiteren Formeln arbeiten möchte) zu den Zeilen 79-144. Die Zeilen 79-144 werden täglich aktualisiert. Und zwar so, dass in der Zeile 79 immer das jüngste Datum steht und die restlichen Tage nach oben nachrücken.

Problem ist eben nun in dem Fall der 3.10.2016!!! Hier hatten wir aufgrund des Feiertags kein Volumen=0. Und diese Zeile möchte ich per Makro löschen - am besten in allen Tabellen (Alsi, Lidl, Tengelmann, ....).

Modul konnte ich zwar anlegen mußte aber trotzdem immer noch in jede Tabelle einzeln und das Makro ausführen. Außerdem löscht er mir jetzt mit dem letzten Makro dann immer aus die letzten Zeilen im Bereich der indirekten Verweise. *upps