mehrere sheets gleichzeitig ausblenden/einblenden

[byteeater]

hallo,

Code: Alles auswählen

 sub ausblenden
myDoc = thisComponent

mySheet = myDoc.Sheets().getByName("GRUNDDATEN","PSM")
mysheet.isvisible=false

end sub

ich möchte gerne mehrere sheets ausblenden und bin dabei wie oben zu sehen vorgegangen, nur leider wird nur "GRUNDDATEN" ausgeblendet.
was fehlt denn damit das klappt?

danke Bernd

[komma4]

Code: Alles auswählen

sub ausblenden
myDoc = thisComponent

mySheet = myDoc.Sheets().getByName("GRUNDDATEN")
mysheet.isvisible=false


mySheet = myDoc.Sheets().getByName("PSM")
mysheet.isvisible=false

end sub

Die Methode .getByName() übernimmt nur einen Namen...

[byteeater]

aha verstehe.

könnte man auch z.B. ALLE Tabellen NACH tabelle3 ausblenden/einblenden lassen mit dieser Vorgehensweise?

[komma4]

klar, Du kannst alle Tabellen (deren Namen Du weisst und in den Code einsetzt) so ausblenden

[byteeater]

ich dachte da eher an ALLE tabellen die hinter der tabelle 3 stehen egal wie die heißen?

vielleicht auch über den index ( alle tabellen > index9 z.B.) ?

[turtle47]

Hi Bernd,

Du kannst aber auch über den Index gehen.
Folgendes Makro blendet alle Tabellen nach Tabelle3 aus ohne extra deren Namen anzugeben.
Der Index fängt immer bei Null an zu zählen. Also, 4. Tabellenblatt hat den Index 3!

Code: Alles auswählen

sub TabellenAusblenden
	myDoc = thisComponent
	Anzahl=myDoc.Sheets.count
	For i = 3 to Anzahl -1 ' Index 3 = 4. Tabellenblatt
	mySheet = myDoc.Sheets(i)
	mysheet.isvisible = false
	next i
end sub

Viel Erfolg.

Jürgen

[turtle47]

Hallo,

es könnte ja sein, dass sich die Anforderung mal ändert.
Das folgende Makro blendet alle Tabellen nach dem aktiven Tabellenblatt aus,
dann braucht man nicht immer in das Makro einzugreifen.

Code: Alles auswählen

sub TabellenAusblenden_2 'Alle Tabellen ausblenden nach aktivem Sheet
	myDoc = Thiscomponent
	AktuelleTabelle = myDoc.CurrentController.ActiveSheet.Rangeaddress
	z=AktuelleTabelle.sheet +1
	Anzahl=myDoc.Sheets.count
	For i = z to Anzahl -1
	mySheet = myDoc.Sheets(i)
	mysheet.isvisible = false 
	next i
end sub

Schöne Grüße

Jürgen