Seite 1 von 1

ausgeblendete Zeilen löschen

Verfasst: Mi, 07.03.2007 13:47
von leewise
Hallo,
ich stehe vor dem Problem Tabellen angeliefert zu bekommen, in denen Zeilen (manuell) ausgeblendet wurden, die für eine Weiterverarbeitung entfernt werden müssen. Die sichtbaren Zeilen zu kopieren funktioniert leider nicht, da bei einem Einfügen in ein neues Tabellenblatt auch die ausgeblendeten (dann eingeblendet) mit übernommen werden. Gibt es eine Funktion diese bereits ausgeblendeten Zeilen gänzlich aus der Tabelle zu entfernen?

Verfasst: Mi, 07.03.2007 15:25
von Karolus
Hallo
Ja, per Makro:

Code: Alles auswählen

Sub ZeileloeschenWennausgeblendet
odoc = thisComponent
osheet = odoc.sheets(0) '1.Blatt
oZeile = oSheet.getrows()
for z = 0 to 1000
if oZeile().getByIndex(1000-z).isVisible = false then
ozeile.removebyindex(1000-z,1)
end if
next
msgbox("alle ausgeblendeten Zeilen gelöscht !")
End Sub
löscht bsplw. alle ausgeblendeten Zeilen im 1. Tabellenblatt bis Zeile 999.

Gruß Karo

Verfasst: Do, 08.03.2007 07:43
von leewise
Weltklasse!

Vielen Dank an Karo für die superschnelle Hilfe -
funktioniert einwandfrei.

Gruß
Liane

Re: ausgeblendete Zeilen löschen

Verfasst: So, 24.06.2018 16:50
von paljass
Es gibt zwischenzeitlich auch eine Erweiterung:
http://www.chip.de/downloads/Sichtbare- ... 14608.html

Gruß
paljass