Gruppe
Druck
Problem
Wie kann ich den Bereich von Zelle A1 bis zur letzten Zelle mit Inhalt in Spalte F als Druckbereich festlegen?
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