Office: leere Zellen bzw. Zellen mit 0'en löschen

Hallo, habe hier mal meinen VBA Code hingeschrieben, und dann hab ich eigentlich noch '0'er über Extras > Optionen > Ansicht > Nullwerte ausgeblendet, doch hier wieder eingeblendet zur besseren Verständnis.

Ich will, dass alle Zeilen wo nichts drinnen steht und Zeilen mit einer 0 in dem vorgegebenen markierten Bereich löschen, kann mir hierbei jemand behilflich sein? wäre toll. vielen dank schon mal im vorraus.

Gruß Urlauber


c = "Übersicht_aktuell_HAG_SW.xls"
Workbooks(c).Sheets("Übersicht_HAT").Activate
Application.ScreenUpdating = False
Range("B5:B40").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.ScreenUpdating = True

:)

 

Moin, urlauber1983,

SpecialCells(xlCelltypeBlanks) erwartet leere Zellen, nicht solche mit einer 0. Alternativen: Löschen von unten her per Schleife, Bilden eines Bereichs zum anschließenden Löschen... *wink.gif*

 

Hallo urlauber1983,

hier mal eine Variante, bei der die Zellen des Bereiches B5:B40 einzeln geprüft und die entsprechenden Zeilen dann gegebenenfalls entfernt werden:
Code:

Ich setze dabei voraus, dass die Eintragungen durch Formeln entstehen (und dadurch die unschönen Nullerzeilen). Handelt es sich dagegen um konstante Einträge, musst du in dieser zweiten Variante "xlCellTypeFormulas" durch "xlCellTypeConstants" ersetzen.

Gruß Ingolf

 

Hallo Ingolf,
vielen Dank für deine super Antwort, variante eins brachte mir in diesem fall mehr, jedoch hat diese Variante nicht alle 0'er gelöscht sondern so grob die hälfte und die leerzeilen sind komplett geblieben, ich bin jetzt aber wieder zurück zu meiner variante und hab an einer anderen stellen den code geändert, der dafür zuständig war, dass die 0'er eingefügt wurden.

Aber dennoch vielen Dank, super.

 

Moin, urlauber1983,

darum wird auch meist darauf hingewiesen, dass Löschaktionen entweder in einem Rutsch (Bilden eines Bereiches über Union) oder von unten nach oben (wegen der Änderung des Zählers). Du löscht z.B. die Zelle B14 (mistsamt Zeile) und greifst danach auf B15 als nächsten Wert zu, müsstest aber erneut B14 wegen der Löschung überprüfen... *wink.gif*

 

ah, danke verstehe hört sich sinnvoll an.

Gruß Urlauber