Seite 1 von 1

Mehrere benachbarte Spalten ausblenden

Verfasst: Mo, 08.08.2011 12:12
von Woatze
Hallo!
Ich habe folgendes Problem: Ich will per Makro in den Tabellenblättern 4 bis 15 die Spalten M bis V ausblenden.
Was ich bis jetzt hab:

Code: Alles auswählen

oSheet = thisComponent.sheets(3)  'Tabellenblatt 4
aspalten() = array("m","n","o","p","q","r","s","t","u","v")
for i = 0 to ubound (aspalten())
oSpalte1 = oSheet.getColumns().getByName(aspalten(i))
oSpalte1.isVisible = false
next
Jetzt funktioniert zumindest, dass im Tabellenblatt 4 die Spalten M bis V ausgeblendet werden.
Kann man das noch irgendwie anders schreiben, ohne jede Spalte extra aufzuführen? Denn eigentlich sollten noch viel mehr Spalten ausgeblendet werden (bis AV mindestens).
Und aßerdem sollten die gleichen Spalten auch auf mehreren Tabellenblättern ausgeblendet werden. Kann man das auch noch eleganter hinkriegen, als den ganzen Text zwölf mal zu kopieren und die Tabellenblattnummer zu ersetzen?

Vielen Dank schon mal,
Woatze

Re: Mehrere benachbarte Spalten ausblenden

Verfasst: Mo, 08.08.2011 12:54
von Karolus
Hallo

Code: Alles auswählen

...
oRange = oSheet.getCellRangebyName("M1:V1")
oRange.getColumns().isVisible = False 


Gruß Karo

Re: Mehrere benachbarte Spalten ausblenden

Verfasst: Mo, 08.08.2011 18:57
von F3K Total
unter Verwendung des Codes von Carolus:

Code: Alles auswählen

for i=3 to 13
oSheet = thisComponent.sheets(i)  'Tabellenblattnummer -1
oRange = oSheet.getCellRangebyName("M1:AV1")
oRange.getColumns().isVisible = False 
next i
Gruß R

Re: Mehrere benachbarte Spalten ausblenden

Verfasst: Mi, 10.08.2011 08:44
von Woatze
Hey vielen Dank euch beiden. Funktioniert super!