OpenOffice.info

Sub hide_Columns
    osheet = Thiscomponent.sheets.getbyname("Tabelle1")
    aC = array("B","C","F")
    for i = 0 to ubound(aC)
        oC = osheet.columns.getbyname(aC(i))
        oC.IsVisible = false
    next i
end Sub

Sub show_Columns
    osheet = Thiscomponent.sheets.getbyname("Tabelle1")
    aC = array("B","C","F")
    for i = 0 to ubound(aC)
        oC = osheet.columns.getbyname(aC(i))
        oC.IsVisible = true
    next i
end Sub

Hi,
wenn deine Daten auf "Tabelle1" stehen, kannst Du mit folgendem Makro die Spalten "B","C" und "F" ausblenden

[code]Sub hide_Columns
osheet = Thiscomponent.sheets.getbyname("Tabelle1")
aC = array("B","C","F")
for i = 0 to ubound(aC)
oC = osheet.columns.getbyname(aC(i))
oC.IsVisible = false
next i
end Sub[/code]
und mit diesem
[code]Sub show_Columns
osheet = Thiscomponent.sheets.getbyname("Tabelle1")
aC = array("B","C","F")
for i = 0 to ubound(aC)
oC = osheet.columns.getbyname(aC(i))
oC.IsVisible = true
next i
end Sub[/code]
die Spalten "B","C" und "F" wieder einblenden.
HTH R