mehrere sheets gleichzeitig ausblenden/einblenden

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: mehrere sheets gleichzeitig ausblenden/einblenden

Re: mehrere sheets gleichzeitig ausblenden/einblenden

von turtle47 » Mi, 01.08.2007 18:53

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

Re: mehrere sheets gleichzeitig ausblenden/einblenden

von turtle47 » Mo, 30.07.2007 16:58

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

Re: mehrere sheets gleichzeitig ausblenden/einblenden

von byteeater » Mo, 30.07.2007 16:53

:-)

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.) ?

Re: mehrere sheets gleichzeitig ausblenden/einblenden

von komma4 » Mo, 30.07.2007 16:48

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

Re: mehrere sheets gleichzeitig ausblenden/einblenden

von byteeater » Mo, 30.07.2007 15:56

aha verstehe.

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

Re: mehrere sheets gleichzeitig ausblenden/einblenden

von komma4 » Mo, 30.07.2007 14:23

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...

mehrere sheets gleichzeitig ausblenden/einblenden

von byteeater » Mo, 30.07.2007 14:15

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

Nach oben