Zellen löschen

[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

[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