moin
wenn die erste leere Zelle in Spalte A zu suchen ist
könnte das hier ein Weg sein
Sub Druckbreich_festlegen()
Dim c As Range
Set c = Columns(1).Find("", LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$Z$" & c.Row - 1
End If
End Sub
grüßli
|