Office: Zeile löschen, wenn Spalte 0 enthält !

Hallo liebe Leute,

ich möchte gerne alle Zeilen löschen, wenn im Bereich (F1:F14012) eine Null enthalten ist. Diese Zeilen sind dann überflüssig. Dennoch soll die ursprüngliche Reihenfolge der sonstigen Zeilen nicht geändert werden.

Ich verwende folgendes Makro dafür:

Sub Makro1()
Dim zeller As Range
a:
For Each zeller In Range("F1", "F14012")
If zeller.Value = "0" Then
zeller.EntireRow.Delete
GoTo a
End If
Next zeller
End Sub

Das Problem ist, dass das Makro auf alle Tabellenblätter angewendet wird. Vorher habe ich ein VBA verwendet, dass die vielen Tabellenblätter zu einem zusammenfasst. Dieses finale Tabellenblatt (welches alles Infos enthält) steht jetzt vor den anderen Tabellenblättern. Wie muss ich das Makro anpassen, damit die Nullensuche und Zeilenlöschung nicht auf alle Blätter, sondern nur auf das Finale angewendet wird?

Für Hilfer wäre ich sehr sehr dankbar !

Liebe Grüße !

:)

 

starte das Makro nur in der entsprechenden Tabelle oder prüfe mit If den Namen.

 

Das funktioniert leider nicht. Weiß nicht, wo der Fehler liegt. Das Makro rechnet und hängt sich dann immer auf.
Gibt es die Möglichkeiten durch die "Ersetzen durch Funktion" ganze Zeilen zu löschen, wenn in einer Zelle eine 0 steht.

Muss diesen Vorgang ja nicht zwingend durch ein VBA erledigen.

Danke und viele Grüße !

 

dazu kann ich nichts schreiben, da ich nicht die ergänzte Zeile sehen. Frage jemanden der sie sieht.

 

Okay, vll. habe ich mich ein bisschen missverständlich ausgedrückt.

Mein Ziel ist es ja alle Zeilen zu löschen, wenn in der Spalte F eine Null steht. Wenn in Spalte F eine Null steht, dann sind sämtliche Informationen der Zeile (Also Spalte A,B,C,D,E) irrelevant und die ganze Zeile soll aus dem Datenblatt gelöscht werden.

Da es mit einem Makro irgendwie nicht klappt, würde ich gerne wissen ob es bei Excell noch eine andere Möglichkeit gibt dies zu vollziehen.

"Ersetzen durch" war nur so eine Idee. Damit lassen sich ja die Nullen aufspüren, aber einen entsprechenden Wert kann man ja nur für die gegebene Zelle ersetzen...oder kann ich Excell sagen: Wann immer in den Zellen F1-F20000 eine Null vorkommt, dann lösche nicht nur die F Zelle, sondern die ganze dazugehörige Zeile?

Ich hoffe jetzt ist es ein bisschen klarer ?!

Weiterhin ein dickes Danke für die Hilfe !

 

ich ersten Beitrag Stand
Code:

da steht nichts das es nicht geht.
und weiter
Code:

darauf habe ich geantwortet.

Jetzt scheint es ein anders Problem, zu sein?
Benutze Autofilter und kopiere den sichtbaren Bereich.

 

Hallo Name?,

Du hast Dir eine prima (Beinahe-)Endlosschleife gebaut: Du springst ja immer wieder zur Sprungmarke a und bearbeitest daher alle Zeilen wieder von vorne. Dadurch braucht das Makro viel länger (auch wenn mir klar ist, was Du damit versuchst zu vermeiden...).

Arbeite einfach von unten nach oben:
Code:

Ich tippe übrigens darauf, dass dies der 13.234.612. Beitrag zu einer gleich- oder zumindest ähnlichlautenden Fragestellung ist... *wink.gif*

Dort findest Du sicher auch Beispiele, wie das noch viel effektiver mit dem Autofilter gelöst ist.

Grüße
EarlFred