wie stell ich denn die letzte Zelle in einem Blatt fest, wenn alle
Zellen im Blatt leer sind und nur Autoformen im Blatt sind?
Danke schon mal,
Gruß Gunther
Sub SetPrintArea()
Dim rngPrintArea As Range
Dim rngRangeCheck As Range
Dim intCounter As Integer
If ActiveSheet.Shapes.Count > 0 Then
Set rngPrintArea = ActiveSheet.Range("A1")
'Überprüfen, ob die Zelle der unteren rechten Ecke im momentanen Druckbereich liegt
For intCounter = 1 To ActiveSheet.Shapes.Count
If ActiveSheet.Shapes(intCounter).Type <> msoComment Then
Set rngRangeCheck = Application.Intersect(ActiveSheet.Range(rngPrintArea.Address), ActiveSheet.Shapes(intCounter).BottomRightCell)
If rngRangeCheck Is Nothing Then
'Objekt liegt ausserhalb, daher Druckbereich vergrössern
Set rngPrintArea = ActiveSheet.Range("A1:" & ActiveSheet.Shapes(intCounter).BottomRightCell.Address)
End If
End If
Next intCounter
End If
ActiveSheet.PageSetup.PrintArea = rngPrintArea.Address
MsgBox rngPrintArea.Address
Set rngRangeCheck = Nothing
Set rngPrintArea = Nothing
End Sub