Supportnet / Forum / Tabellenkalkulation
Hoch-/Querformat per Makro ändern
Frage
Guten Morgen!
Bin unter https://supportnet.de/threads/1168938 fündig geworden, um Zeilen ein-/ausblenden zu lassen.
Nun möchte ich allerdings die Formatierung von quer auf hoch bzw. umgekehrt automatisieren.
Kann man dies bewerkstelligen?
Tom
Antwort 1 von Hajo_Zi
Hallo Tom,
ich hoffe mal ich habe es richtig verstanden
Range("B8").Orientation = 0 ´ waagerecht
Range("B8").Orientation = 90 ´ Senkrecht
Gruß Hajo
ich hoffe mal ich habe es richtig verstanden
Range("B8").Orientation = 0 ´ waagerecht
Range("B8").Orientation = 90 ´ Senkrecht
Gruß Hajo
Antwort 2 von Tomschi
Hallo Hajo!
Danke für die rasche Antwort.
Sorry, aber das verstehe ich jetzt nicht.
Wer, wie, was, wo muss ich Deinen Code einflicken damit ich mein Ergebnis erhalte?
lg
Tom
Danke für die rasche Antwort.
Sorry, aber das verstehe ich jetzt nicht.
Wer, wie, was, wo muss ich Deinen Code einflicken damit ich mein Ergebnis erhalte?
lg
Tom
Antwort 3 von Hajo_Zi
Hallo Tom,
mein Code ändert die Ausrichtung des Textes in der Zelle. Also dort wo Du die Zelle Bearbeitest muß der Code hin.
Gruß Hajo
mein Code ändert die Ausrichtung des Textes in der Zelle. Also dort wo Du die Zelle Bearbeitest muß der Code hin.
Gruß Hajo
Antwort 4 von Tomschi
Oh, da habe ich mich wohl ein wenig unklar ausgedrückt. Sorry!
Ich möchte per Makro das Format des gesamten Arbeitsblattes umstellen.
Ciao
Tom
Ich möchte per Makro das Format des gesamten Arbeitsblattes umstellen.
Ciao
Tom
Antwort 5 von Hajo_Zi
Hallo Tom,
ActiveSheet.PageSetup.Orientation = xlLandscape ´ Quer
ActiveSheet.PageSetup.Orientation = xlPortrait ´ längs
Gruß Hajo
ActiveSheet.PageSetup.Orientation = xlLandscape ´ Quer
ActiveSheet.PageSetup.Orientation = xlPortrait ´ längs
Gruß Hajo
Antwort 6 von Tomschi
DANKE Hajo!
Funktioniert prima!
Wünsche ein schönes Wochenende.
Tom
Funktioniert prima!
Wünsche ein schönes Wochenende.
Tom
Antwort 7 von Tomschi
Hi!
Jetzt ist mir noch etwas anderes eingefallen.
Besteht die Möglichkeit "herauszufiltern" ob und wenn ja, welche Spalten/Zeilen ausgeblendet wurden und/oder welches Format zur Zeit "eingestellt" ist?
Tom
Jetzt ist mir noch etwas anderes eingefallen.
Besteht die Möglichkeit "herauszufiltern" ob und wenn ja, welche Spalten/Zeilen ausgeblendet wurden und/oder welches Format zur Zeit "eingestellt" ist?
Tom
Antwort 8 von Hajo_Zi
Hallo Tom,
MsgBox ActiveSheet.PageSetup.Orientation ´ 1=längs; 2= Quer
zum ausblenden bleibt Dir nur die Möglichkeit mit einer Schleife alle Zeiln Spalten zu prüfen.
Höhe, Breite =0 ausgeblendet
Gruß Hajo
MsgBox ActiveSheet.PageSetup.Orientation ´ 1=längs; 2= Quer
zum ausblenden bleibt Dir nur die Möglichkeit mit einer Schleife alle Zeiln Spalten zu prüfen.
Höhe, Breite =0 ausgeblendet
Gruß Hajo
Antwort 9 von Tomschi
Nochmals danke für die Antworten.
Leider ist meiner Kollegin noch etwas eingefallen:
Kann man auch die Skallierung von 100% auf z. B. 150% per Makro umstellen?
Tom
Leider ist meiner Kollegin noch etwas eingefallen:
Kann man auch die Skallierung von 100% auf z. B. 150% per Makro umstellen?
Tom
Antwort 10 von Tomschi
Gemeint ist die Skalierung in Seite einrichten --> Reiter Papierformat.
lg
Tom
lg
Tom
Antwort 11 von Hajo_Zi
Hallo Tom,
code bekommt man auch raus, wenn man den Makrorecorder benutzt. Ich mache das auch oft und in Deinem Fall zu 100%
ActiveWindow.Zoom = 150
Gruß Hajo
code bekommt man auch raus, wenn man den Makrorecorder benutzt. Ich mache das auch oft und in Deinem Fall zu 100%
ActiveWindow.Zoom = 150
Gruß Hajo
Antwort 12 von Tomschi
Hi!
Das mit dem Makrorekoder ist mir schon klar, aber ich kenne mich mit dem Code nicht aus.
Wie soll ich also wissen was welcher Eintrag zu bedeuten hat.
Habe mich allerdings fuer heuer zu einem VBA-Kurs vormerken lassen. Hoffe es klaptt, damit ich nicht mehr so viele Fragen stellen muss.
DANKE!!!
Have a nice weekend!
lg
Thomas
Das mit dem Makrorekoder ist mir schon klar, aber ich kenne mich mit dem Code nicht aus.
Wie soll ich also wissen was welcher Eintrag zu bedeuten hat.
Habe mich allerdings fuer heuer zu einem VBA-Kurs vormerken lassen. Hoffe es klaptt, damit ich nicht mehr so viele Fragen stellen muss.
DANKE!!!
Have a nice weekend!
lg
Thomas