Zeilen löschen in Abhängigkeit

Olaf_4 · 2025-05-20T14:42:46+02:00

Hallo. Es geht um Arbeitszeiten und Pausen. Die Erfassung klappt gut, die Berechnung ebenfalls. Das Problem: Bei der Berechnung der Pausen fallen Zellen an mit einem Null-Wert. Wird keine Pause gemacht, keine Leerzelle, bei einer Pause eine, bei 2 Pausen 2 Leerzellen usw. Die Daten habe ich auf ein neues Blatt kopiert, sodass echte Leer-Zeilen anfallen. Um eine vernünftige Übersicht der Arbeitszeiten zu haben, sollen die Leerzeilen gelöscht werden. Es entsteht dann kein Zwischenraum bei den Arbeitszeiten. Das Ganze ist dynamisch und unvorhersehbar, da man ja nie weiß, wie viele Pausen an einem Tag gemacht werden. Fazit: Löschen von Leerzeilen in Abhängigkeit von einem Zellenwert. Ich möchte das Ganze automatisieren - händisch mit Leerzeilen suchen und manuell löschen ist bei der anfallenden Datenmenge zu aufwendig. Deshalb gehe ich davon aus, dass hier nur VBA hilft ... Als Anlage ein Beispiel als Foto - mit meinem Wunsch.

Doch, ich kann mit Kritik umgehen.
allerdings sollte die Kritik berechtigt und "gut" sein.
eine "gute" Kritik sollte immer über drei Punkte Auskunft geben:
- was wird kritisiert
- warum wird es kritisiert
- wie wäre es besser.

in deinem Fall sprichst du einen Punkt an, der meiner Erfahrung nach in der Realität nicht vorkommt, und wenn doch, liegt der Fehler an einer anderen Stelle, wo er behoben werden sollte, und dann nicht mehr vorkommt.
Daher macht es keinen Sinn, das Makro für einen sowieso nie bis seltenen Fall aufzublähen und damit unnötig zu verkomplizieren. Von daher betrachte ich deine Kritik hier als unberechtigt.
Zumal solche Lösungen von mir eher als beispielhafte Lösungsprinzipen gedacht sind, die der Anwender in seine Programmierung übernehmen und bei Bedarf ergänzen und erweitern kann.
Es ist nicht mein Ansinnen, hier fertige Copy-Paste-Lösungen zu präsentieren, die der Fragesteller ohne eigene Gedankenleistung einfach nur übernehmen kann. Wenn solche vollständigen "Profimäßigen" Lösungen erwünscht und erwartet werden, sollte man die Helfer auch entsprechen für ihre Leistung vergüten.

"=IF(D=0,0,Row())" ist keine sinnvolle Formel. Was soll hier "D" sein?
die erzeugt bei mir den #Name-Fehler und da alle Zellen diesen Fehler haben, werden auch alle Zeilen gelöscht, bis auf die erste und zweite Zeile.

also da muss eine sinnvolle Formel rein.
damit du die nicht aus dem Kopf schreiben musst, gehe so vor:
schreibe in die erste freie Zelle am Tabellenende ohne an VBA zu denken (also ganz normal mit Excel) eine Formel, die für alle Zellen, die gelöschst werden sollen, eine 0 als Ergebnis hat und für die, die stehen bleiben sollen, die Zeilennummer (Zeile())
also beispielsweise in die Zelle X1: =Wenn(Anzahl2($A1:W1)=0;0;Zeile())
dann ziehst du die Formel nach unten und prüfst, ob sie in allen Fällen das richtige Ergebnis liefert.

um jetzt den richtigen Formeltext für VBA zu bekommen, markierst du eine Zelle mit dieser Formel und gibst im Direktfenster den Befehl ein:
?Replace(Selection.FormulaR1C1, """", """""")
die damit angezeigte Formel kannst du dann in den Code übernehmen.
Das Replace ist erforderlich, wenn die Formel selbst Anführungszeichen enthält. Diese müssen im VBA-Code verdoppelt werden und das mache ich mit dem Replace

Forumthread: Zeilen löschen in Abhängigkeit

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Zeilen löschen in Abhängigkeit

Forumthread: Zeilen löschen in Abhängigkeit

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread