Seite 1 von 1
Re: Macro Spalten Ausblenden
Verfasst: Fr, 07.11.2008 10:36
von 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
Re: Macro Spalten Ausblenden
Verfasst: Sa, 08.11.2008 16:41
von 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
Re: Macro Spalten Ausblenden
Verfasst: Do, 26.03.2009 00:21
von 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
Re: Macro Spalten Ausblenden
Verfasst: Do, 26.03.2009 00:51
von woofer
Hab noch mal ein wenig experimentiert...
wenn ich
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...