OpenOffice.info

Verfasst: **Sa, 15.05.2021 09:59**

Moin,
folgendes Makro an das Ereignis"Status geändert", blendet alle kommasepariert im Label der Checkbox befindlichen Zeilen auf Tabelle1 aus, Beispiel anbei.

Code: Alles auswählen

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

Gruß R

OpenOffice.info

Wie kann eine Checkbox in einer Routine auf das eigene Label zugreifen?

Re: Wie kann eine Checkbox in einer Routine auf das eigene Label zugreifen?