OpenOffice.info

Verfasst: **So, 24.08.2008 11:09**

Verfasst: **So, 24.08.2008 13:12**

Hallo
Erstell dir über ->F11 zwei neue Zellvorlagen mit den Namen: "Rahmen_unten" und "Rahmen_oben"
und lass folgendes Makro laufen:

Code: Alles auswählen

Sub Rahmen_und_Zeilen

odoc = thisComponent
osheet = odoc.sheets(0) '1.Tabellenblatt
orows = osheet.getrows
z = 0  'Hier wird die erste zu bearbeitende Zeile eingestellt. Die 1.Zeile hat den Index 0
do until osheet.getcellbyposition(0,z).string = ""
	if osheet.getcellbyposition(1,z).value <> osheet.getcellbyposition(1,z+1).value then
		osheet.getcellrangebyposition(0,z,11,z).cellstyle = "Rahmen_unten"
		z = z + 1
		osheet.getcellrangebyposition(0,z,11,z).cellstyle = "Rahmen_oben"
		orows.insertbyindex(z,1) 'Index und Anzahl
	end if
		z = z + 1
loop

End Sub

Quelltext übernehmen

Gruß Karo

OpenOffice.info

Automatische Leerzeilen einfügen

Automatische Leerzeilen einfügen

Re: Automatische Leerzeilen einfügen