Seite 1 von 1
mehrere sheets gleichzeitig ausblenden/einblenden
Verfasst: Mo, 30.07.2007 14:15
von 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
Re: mehrere sheets gleichzeitig ausblenden/einblenden
Verfasst: Mo, 30.07.2007 14:23
von 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...
Re: mehrere sheets gleichzeitig ausblenden/einblenden
Verfasst: Mo, 30.07.2007 15:56
von byteeater
aha verstehe.
könnte man auch z.B. ALLE Tabellen NACH tabelle3 ausblenden/einblenden lassen mit dieser Vorgehensweise?
Re: mehrere sheets gleichzeitig ausblenden/einblenden
Verfasst: Mo, 30.07.2007 16:48
von komma4
klar, Du kannst alle Tabellen (deren Namen Du weisst und in den Code einsetzt) so ausblenden
Re: mehrere sheets gleichzeitig ausblenden/einblenden
Verfasst: Mo, 30.07.2007 16:53
von 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.) ?
Re: mehrere sheets gleichzeitig ausblenden/einblenden
Verfasst: Mo, 30.07.2007 16:58
von 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
Re: mehrere sheets gleichzeitig ausblenden/einblenden
Verfasst: Mi, 01.08.2007 18:53
von 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