Mehrere benachbarte Spalten ausblenden

[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

[Karolus]

Hallo

Code: Alles auswählen

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

Gruß Karo

[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

[Woatze]

Hey vielen Dank euch beiden. Funktioniert super!