Office: Zeile löschen wenn Bedingung erfüllt

Hallo topsy76,

probier mal meine Lösung aus. Das Makro wird audgeführt, wenn das jeweilige Blatt aktiviert wird.

 

hallo hasso,

danke schon mal. ich kann die datei leider nicht offnen, weil ich noch excel 2002 habe. *rolleyes.gif*

 

Hallo topsy76,

dann hier die Version, die auch mit Excel 2002 funktionieren sollte:

 

Leider löscht mir das Makro im oberen Bereich fast alle Zeilen. Ich will, wie gesagt, nur die eine Zeile, in der das Volumen = 0 ist (vom 3.10.2016), über das Makro in alle vorher definierte Tabellen gelöscht kriegen.

Der obere Bereich der Daten sollte quasi "unantastbar" sein, weil ich hier mit weiterführenden Formeln arbeite. Der Bereich Zeilen 79 - 144 darf sich verändern.

Kann man das Modul dann auch mit einer definierten Taste (z. B. F12) auslösen?

Danke schön mal für die Bemühungen und sorry für meine Unkenntnis.

 

Hallo topsy76,

das Makro löscht jetzt nur die Zeilen mit einer 0 in Spalte F ab Zeile 70 und wird mit F12 gestartet.

Es wäre aber vielleicht sinnvoll, wenn du den unteren Teil auf allen Blättern in der gleichen Zeile beginnen lässt.

 

Danke.

Ich habe das Makro jetzt in das Modul der Originaldatei eingefügt und um die die Sheet-Bezeichnungen ergänzt.

Leider führt das Makro nicht aus. Wenn ich über F8 gehe dann immer nur in dem Sheet, dass ich gerade geöffnet habe. Wenn ich F12 drücke dann fragt er mich wo ich die Datei speichern will???

 

Hallo topsy76,

Hast du auch in "Diese Arbeitsmappe" wie in meiner Datei dies eingetragen? Code:

 

Ja, hatte ich.

Das Makro wird auch ausgeführt, allerdings nur in dem jeweiligen Sheet der Excel-Datei, das ich gerade geöffnet habe. In den anderen passiert nichts.

Und in dem Sheet, wo das Makro ausgeführt wird, werden leider nicht nur die Zeilen mit der 0 in der Spalte F gelöscht. Zusätzlich auch noch die nachfolgenden 6 Zeilen, obwohl dort Volumen>0 enthalten ist. Das sind die Zeilen vom 3.10.2016 bis 22.09.2016. Je öfter ich F12 drücke desto mehr Zeilen werden übrigens gelöscht.

Ich hab die Originaldatei jetzt mal angehängt. Du kannst die Zeilenlöschung im Sheet "Adidas" nachvollziehen. In den folgenden Sheets passiert nichts nach F12. Z. B. in "Allianz" sieht man gut, dass nur in der Zeile 98 (Datum vom 03.10.2016) eine 0 im Volumen hinterlegt ist. Genau die Zeile muss weg - und das am besten in allen Sheets.

 

Bei mir wird nur die Zeile 98 im Blatt "Allianz" gelöscht - das ist auch in beiden Blättern die einzige Zeile mit einer 0 in Spalte F. Ich kann F12 so oft drücken, wie ich will, danach passiert nichts. Es kann sein, dass es daran liegt, dass ich hier mit Excel 2013 arbeite, glaube ich aber eher nicht.

P.S.:
Ich habe das jetzt unter Ofiice 2003 getestet und bei mir läuft das Makro problemlos.

 

Hmm ... komisch,dass es funktioniert, wenn ich den ursprünglichen Code (nicht als Modul) ausführe gehts. Ich hab aber insgesamt über 30 Tabellen!