OpenOffice.info

sub Hide_rows(Event)
    oSheet = ThisComponent.Sheets.getbyName("Tabelle1")
    bVisible = Event.Selected
    ochkbox = Event.source.Model
    sLabel = TRIM(ochkbox.Label)
    aLabel = split(sLabel,",")
    for i = 0 to uBound(aLabel)
       nRow = cInt(Trim(aLabel(i)))-1 'Trim um etwaige Leerzeichen zu entfernen, cInt um aus dem Text eine Zahl zu machen, -1 weil der Zeilenidex bei 0 beginnt
       oRow = oSheet.Rows(nRow)
       oRow.isVisible = bVisible
    next i
end sub

Moin,
folgendes Makro an das Ereignis"Status geändert", blendet alle kommasepariert im Label der Checkbox befindlichen Zeilen auf Tabelle1 aus, Beispiel anbei.
[code]sub Hide_rows(Event)
oSheet = ThisComponent.Sheets.getbyName("Tabelle1")
bVisible = Event.Selected
ochkbox = Event.source.Model
sLabel = TRIM(ochkbox.Label)
aLabel = split(sLabel,",")
for i = 0 to uBound(aLabel)
nRow = cInt(Trim(aLabel(i)))-1 'Trim um etwaige Leerzeichen zu entfernen, cInt um aus dem Text eine Zahl zu machen, -1 weil der Zeilenidex bei 0 beginnt
oRow = oSheet.Rows(nRow)
oRow.isVisible = bVisible
next i
end sub[/code]

Gruß R