LibreOffice-Forum

Code: Alles auswählen

Sub S_ein_ausblenden (event)
    dim n as integer
    arows1 = array(10,13,15,18) 'entsprechen Zeile 2,4,6,9
    arows2 = array(12,14,16,17) 'entsprechen Zeile 3,5,7,8
    aarows = array(arows1,arows2)
    acolumns1 = array(3,5,6,8) 'entsprechen Spalte A,B,D,F
    acolumns2 = array(4,7,9) 'entsprechen Spalte C,E,G,H
    aacolumns = array(acolumns1,acolumns2)
    oSheet = thisComponent.sheets.getbyname("Tabelle1")
    orows = oSheet.rows
    ocolumns = oSheet.Columns
    orows = oSheet.rows
    oChk = event.source.model
    sChkName = ochk.name
    n = Right(sChkName,1)
    if instr(sChkName,"row")>0 then 
        arows = aarows(n-1)
        if oChk.state then
            for i = 0 to ubound(arows)
                orows(arows(i)).isVisible = true
            next i
        else
            for i = 0 to ubound(arows)
                orows(arows(i)).isVisible = false
            next i
        end if
	else
        acolumns = aacolumns(n-1)
        if oChk.state  then
            for i = 0 to ubound(acolumns)
                ocolumns(acolumns(i)).isVisible = true
            next i
        else
            for i = 0 to ubound(acolumns)
                ocolumns(acolumns(i)).isVisible = false
            next i
        end if
	endif
End Sub