Macro Spalten Ausblenden

[Karolus]

Hallo

Code: Alles auswählen

sub spalten_schalten_I_bis_AD_E
oSheet = thisComponent.currentcontroller().activesheet
aspalten() = array("i","j","k","l","m","n","o","p","q","r","s","t"_
					,"v","w","x","y","z","aa","ab","ac","ad","e")
	for i = 0 to ubound(aspalten())
		oSpalte1 = oSheet.getColumns().getByName(aspalten(i))   
		oSpalte1.isVisible = not oSpalte1.isVisible
	next
end sub

Gruß Karo

[1.ray]

Hallo Sunnyman,

Karo ist ein As und hat mir bei dem gleichen Problem schon mal geholfen,
das Macro selbst per Aufzeichnen herzustellen.
viewtopic.php?f=2&t=9022#p34818

Vielleicht interessiert Dich das(siehe oben: Link)

Gruss
1.ray

[woofer]

Hi Karo, muss das Topic noch mal hoch holen hätte da noch ne kleine Frage

Zum Verständnis "Array " ist ne Schleife... es werden alle Spalten die in dem "Array" aufgelistet werden überprüft und wenn sie sichtbar sind werden sie versteckt und umgekehrt. Das passiert mit der Zeile "oSpalte1.isVisible = not oSpalte1.isVisible"?? Ist das so richtig?

Kann man das auch so umschreiben, dass nach dem "verstecken" der Druckbefehl ausgelöst wird? Jedoch soll nicht gedruckt werden, wenn die Zeilen wieder sichtbar gemacht werden...

ist das machbar?

Gruß Woofer

[woofer]

Hab noch mal ein wenig experimentiert...

wenn ich

Code: Alles auswählen

"oSpalte1.isVisible = not oSpalte1.isVisible"

durch

Code: Alles auswählen

if oSpalte1.isVisible = false then
      oSpalte1.isVisible = true else oSpalte1.isVisible = false
   end if    

erziehle ich den selben Effect eventuell könnt ich dort ein Druckbefehl einbaun.
oder würde es Sinn machen, nach dem "Next"

Code: Alles auswählen

[if oSpalte1.isVisible = false then [color=#FF0040]Dokument Drucken[/color]/code]
einzufügen.
Das würde nachdem die komplette Schleife abgearbeitet ist überprüfen, ob die letzte Spalte sichtbar ist und gegebenfalls drucken....

Die Idee ist da nur an der Umsetzung fehlt´s mir noch...