Leerzeilen löschen klappt nicht mehr
Verfasst: Mi 3. Jun 2026, 11:50
EINMAL möchte ich es erleben, daß mal was nicht nicht mehr funktioniert; gestern war es das Übertragen von Fotos vom Handy auf PC, heute klappt das verdammte Makro in LO nicht mehr.
Und nein, es gab KEIN Update ...
Ich habe eine Einkaufsliste, die ich nach Erstellen auf ein 2. Blatt kopiere. Dann drückte ich einen Button, und alle Zeilen, wo in Spalte A nichts stand, wurden gelöscht.
Heute klappt das nicht mehr, natürlich, und kA, warum.
Das habe ich seit Jahren, sodaß ich nicht mehr weiß, wie wo ich Makro und Button erstellt habe.
Wie krieg ich das wieder ans Laufen?
Nachtrag
Das ist das Makro, glaube ich; warum die Bereiche da weg sind = kA, Bereich ging von A1 bis C-Ende.
Sub zeilen_loeschen
odoc=Thiscomponent
otab=odoc.CurrentController.ActiveSheet
spalte=0
obereiche= otab.Columns(spalte).queryEmptyCells
for i=obereiche.count-1 to 0 step -1
bereichszeilen=obereiche(i).Rows
bereichszeilen.removeByIndex(0,bereichszeilen.count)
next
End Sub
Und nein, es gab KEIN Update ...
Ich habe eine Einkaufsliste, die ich nach Erstellen auf ein 2. Blatt kopiere. Dann drückte ich einen Button, und alle Zeilen, wo in Spalte A nichts stand, wurden gelöscht.
Heute klappt das nicht mehr, natürlich, und kA, warum.
Das habe ich seit Jahren, sodaß ich nicht mehr weiß, wie wo ich Makro und Button erstellt habe.
Wie krieg ich das wieder ans Laufen?
Nachtrag
Das ist das Makro, glaube ich; warum die Bereiche da weg sind = kA, Bereich ging von A1 bis C-Ende.
Sub zeilen_loeschen
odoc=Thiscomponent
otab=odoc.CurrentController.ActiveSheet
spalte=0
obereiche= otab.Columns(spalte).queryEmptyCells
for i=obereiche.count-1 to 0 step -1
bereichszeilen=obereiche(i).Rows
bereichszeilen.removeByIndex(0,bereichszeilen.count)
next
End Sub