Macro Spalten Ausblenden

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Macro Spalten Ausblenden

Re: Macro Spalten Ausblenden

von woofer » Do, 26.03.2009 00:51

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...

Re: Macro Spalten Ausblenden

von woofer » Do, 26.03.2009 00:21

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

Re: Macro Spalten Ausblenden

von 1.ray » Sa, 08.11.2008 16:41

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

Re: Macro Spalten Ausblenden

von Karolus » Fr, 07.11.2008 10:36

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

Nach oben