OpenOffice.info

Hey vielen Dank euch beiden. Funktioniert super!

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

unter Verwendung des Codes von Carolus:
[code]for i=3 to 13
oSheet = thisComponent.sheets(i) 'Tabellenblattnummer -1
oRange = oSheet.getCellRangebyName("M1:AV1")
oRange.getColumns().isVisible = False
next i[/code]
Gruß R

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

Hallo
[code]
...
oRange = oSheet.getCellRangebyName("M1:V1")
oRange.getColumns().isVisible = False
[/code]

Gruß Karo

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

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]
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
[/code]

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