Gruppe
Druck
Problem
Wie kann ich durch die Eingabe einer Zahl zwischen verschiedenen Druckbereichen hin- und herschalten?
StandardModule: Modul1
Sub BereichFestlegen()
Dim rng As Range
Set rng = Range(Cells(1, 1), _
Cells(Cells(1, 2).End(xlDown).Row, 8))
ActiveSheet.PageSetup.PrintArea = rng.Address
ActiveSheet.PrintPreview
End Sub