Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Druckbereich in Abhängigkeit zur Einträgen in einer Spalte

Gruppe

Bereich

Problem

Der Druckbereich soll in Abhängigkeit der Anzahl von Einträgen in Spalte B festgelegt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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