Einzelnen Beitrag anzeigen
Alt 27.04.2018, 14:42   #5
CStein
Neuer Benutzer
Neuer Benutzer
Standard

Danke für Deine Mühe.

Nun funktioniert es; der Punkt vor Cells scheint nicht nötig zu sein.

Hier der fertige Code (Änderungen ggü. oben in blau):

******************************************
Sub Druckbereich_optimieren()
Dim LoI As Long
Dim LoLetzte As Long
Dim oWs As Worksheet

On Error Resume Next
For Each oWs In ActiveWorkbook.Worksheets

With oWs

LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 9)), _
Cells(Rows.Count, 9).End(xlUp).Row, Rows.Count)

For LoI = LoLetzte To 2 Step -1
If Cells(LoI, 9) <> Empty Then Exit For
Next LoI

oWs.PageSetup.PrintArea = "$A$1:$I$" & LoI

End With
Next oWs
End Sub

******************************************
CStein ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten