Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aktuellen Bereich in den Spalten A:F als Druckbereich

Gruppe

Bereich

Problem

Wie kann ich den Bereich von Zelle A1 bis zur letzten Zelle mit Inhalt in Spalte F als Druckbereich festlegen?

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

StandardModule: basMain

Sub Drucken()
   Dim iCol As Integer, iRow As Integer
   For iCol = 1 To 4
      If Cells(Rows.Count, iCol).End(xlUp).Row > iRow Then
         iRow = Cells(Rows.Count, iCol).End(xlUp).Row
      End If
   Next iCol
   ActiveSheet.PageSetup.PrintArea = Range("A1:F" & iRow).Address
   ActiveSheet.PrintPreview
End Sub