OpenOffice.info

Code: Alles auswählen

Sub Zeilenloeschen
odoc = thisComponent
mysheet=odoc.currentcontroller.activesheet
for z = 0 to x  ' für x deinen gesamten Zeilenindex; Steht eine 0, werden alle geraden gelöscht, steht eine 1, die ganzen geraden
myrows=mysheet.getrows
  myrows.removebyindex(z,1)
  next z
End Sub

Code: Alles auswählen

Sub Zeilenloeschen
odoc = thisComponent
mysheet=odoc.currentcontroller.activesheet
letzteZeile = 30  ' Hier später den gesamten Zeilenindex angeben, Zeile1 entspricht 0
for z = 0 to letzteZeile 
'gewünschte Option aukommentieren↓
'k = z mod (4/3)  'jede zweite Zeile löschen
						
k = z mod 1.5   'jede dritte Zeile 1. 4. 7. usw
if  k = 0 then
myrows=mysheet.getrows
  myrows.removebyindex(z,1) 'Wenn hier '(z+1,1)'  ->Start bei 2.Zeile
  letzteZeile = letzteZeile - 1
 end if 
next z
End Sub