Re: Druckbereich
24.01.2003 12:44:58
Steffan
Hallo Thorsten,so geht's:
Sub SeitenUmbruch_Druckbereich()
'alle vertikalen Seitenumbrüche und Druckbereiche löschen
For Each vBreak In ActiveSheet.VPageBreaks
vBreak.Delete
Next
ActiveSheet.PageSetup.PrintArea = False
'Spalte F auf Wert überprüfen
If Cells(65536, 6).End(xlUp) = Cells(65536, 1) And Cells(65536, 1).Value = Empty Then
'keine Werte in Spalte F
'Seitenumbruch vor Spalte E
ActiveSheet.VPageBreaks.Add Before:=Cells(1, 5)
'Druckbereich von Spalte A bis D
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$" & Trim(Str(Cells(65536, 1).End(xlUp).Row))
Else
'Werte in Spalte F
'Seitenumbruch vor Spalte G
ActiveSheet.VPageBreaks.Add Before:=Cells(1, 7)
'Druckbereich von Spalte A bis F
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & Trim(Str(Cells(65536, 1).End(xlUp).Row))
End If
End Sub
Steffan.