Alle Spalten und Zeilen ausblenden bis auf ...

[Karolus]

Hallo

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

Gruß Karo