Gruppe
Druck
Problem
Der Druckbereich soll in Abhängigkeit der Anzahl von Einträgen in Spalte B festgelegt werden.
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