ausgeblendete Zeilen löschen

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

leewise
Beiträge: 2
Registriert: Mi, 07.03.2007 13:19

ausgeblendete Zeilen löschen

Beitrag 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?
Karolus
********
Beiträge: 7431
Registriert: Mo, 02.01.2006 19:48

Beitrag 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
leewise
Beiträge: 2
Registriert: Mi, 07.03.2007 13:19

Beitrag von leewise »

Weltklasse!

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

Gruß
Liane
paljass
******
Beiträge: 792
Registriert: Do, 25.10.2012 07:25

Re: ausgeblendete Zeilen löschen

Beitrag von paljass »

Es gibt zwischenzeitlich auch eine Erweiterung:
http://www.chip.de/downloads/Sichtbare- ... 14608.html

Gruß
paljass
EDV ist wie U-Boot fahren - machst du ein Fenster auf, fangen die Probleme an.
Antworten