Hilfe, VBA Excel Makro zum Druckbereich festlegen!

Re(3): Hilfe, VBA Excel Makro zum Druckbereich festlegen!

Thing — Mon, 19 Mar 2007 20:56:27 GMT

Bezogen auf Deine Beispielsituation (sofern ich sie richtig verstanden habe) könntest Du es vielleicht so ähnlich machen:

With Sheets("Tabelle1")
.PageSetup.PrintArea = "A1:Y" & (.Columns("B").Find("", LookIn:=xlValues).Row - 1)
End With

Wenn Du die 2 Sicherheitszeilen wirklich willst, musst Du am Ende natürlich statt "-1" "+1" schreiben.

Re(2): Hilfe, VBA Excel Makro zum Druckbereich festlegen!

User67913 — Mon, 19 Mar 2007 17:29:35 GMT

Hei, der Link hilft mir nicht, da ich es ja manuell kann, aber wie lautet quasi das Makro um einen variablen Druckbereich festzulegen. Wenn es immer die gleiche Zeilenanzahl wäre, wäre es ja kein Problem. Hast du zufällig eine Idee?

Re: Hilfe, VBA Excel Makro zum Druckbereich festlegen!

dev0 — Mon, 19 Mar 2007 17:23:48 GMT

http://support.microsoft.com/kb/214012/de

ansonsten:

Wie kann man per VBA den Druckbereich festlegen und das Blatt drucken?

With Sheets("Tabelle1")
    'Druckbereich festlegen:
    .PageSetup.PrintArea = "$A$1:$B$10"
    'Drucken:
    .PrintOut
    'Druckbereich aufheben:
    .PageSetup.PrintArea = ""
End With

Hilfe, VBA Excel Makro zum Druckbereich festlegen!

User67913 — Mon, 19 Mar 2007 16:47:19 GMT

Also ich brauche ganz dringend ein Excel Makro was mir folgendes erfüllt:

Ich möchte den Druckbereich variabel festlegen. Die Spaltenweite ist vorgegeben, immer bis Spalte Y.

Die Zeilenweite ist variabel je nachdem bis zur wievielten Zeile die Spalte B gefüllt ist. Das Problem ist, da die Spalte B bis zur Zeile 1200 mit Formeln gefüllt ist, allerdings scheint durch die Formel z.B. nur bis zur Zeile 825 oder 234 oder whatever etwas auf, der Rest bleibt durch die Formel leer.

Wie kann ich nun den Druckbereich so festlegen, daß er immer bis zur letzten gefüllten Zeile geht und dort den Druckbereich (+ 2 Zeilen zur Sicherheit) festlegt.

ZU HÜLF!