Seite 1 von 1

Zellen löschen

Verfasst: Do, 08.04.2010 19:01
von nixdorf
Hallo,

ich habe eine Tabelle mit Einträgen in 8000 Zeilen, wo in der zweiten Spalte immer mal wieder leere Zellen sind. Diese leeren Zellen möchte ich löschen. Die Inhalte der jeweiligen Zeilen sollen dann nach links verschoben werden, so daß es keine leeren Zellen mehr in der zweiten Spalte gibt. Wie kann ich das automatisch durchführen lassen?


Gruß Nixdorf

Re: Zellen löschen

Verfasst: Do, 08.04.2010 22:09
von Karolus
Hallo
Da brauchts wohl etwas Macro:

Code: Alles auswählen

Sub If_B_Leer_remove_left
osheet = ThisComponent.sheets(0) '1.Tabelle
for i = 0 to 7999
	if osheet.getCellByPosition(1,i).string = "" then
		osheet.removeRange( osheet.getcellbyPosition(1,i).getrangeaddress,_
		com.sun.star.sheet.CellDeleteMode.LEFT)
	end if
next
End Sub
Gruß Karo