Re: Wie kann eine Checkbox in einer Routine auf das eigene Label zugreifen?
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.
Gruß R
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