Druckbereich
18.06.2003 11:17:33
Ralf
Wie kann ich flexibel das Ende des Druckbereiches festlegen? Das Ende des Druckbereiches schreibe ich als Wert in die Zelle A2.
Müsste das etwa so aussehen:
ActiveSheet.PageSetup.PrintArea = "$A$1:(A2).Value"
Leider funktioniert das nicht.
Besten Dank im Voraus.
Gruss Ralf
Das ist alles was ich bis anhin zustande gebracht habe:
Sub Macro1()
Sheets("Sheet1").Select
Range("A1:S55").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$S$55"
End Sub