Re: Alle Spalten und Zeilen ausblenden bis auf ...
Verfasst: Mi, 04.03.2009 21:57
Hallo
Gruß Karo
Code: Alles auswählen
Sub Main
oSheet = thisComponent.sheets(0)'1.Blatt
oSheet.getColumns().isvisible = false
for si = 0 to 10
oSheet.getColumns().getbyindex(si).isvisible = true
next
oSheet.getrows().isvisible = false
for zi = 0 to 24
oSheet.getrows().getbyindex(zi).isvisible = true
next
End Sub