PrintArea
02.02.2006 19:20:32
Ernst
Etwas stimmt mit meinem Code unten noch nicht!
- Wenn in der Zelle B5 nichts steht, so soll nichts gedruckt werden.
- Wenn in der Zelle B5 etwas steht, so soll der Bereich B1 bis 071 gedruckt werden.
- Wenn in der Zelle B76 etwas steht, so soll der Bereich B1 bis 0141 gedruckt werden.
- Wenn in der Zelle B147 etwas steht, so soll der Bereich B1 bis 0213 gedruckt werden.
Kann mir jemand den Code richtg schreiben? Für eine Antwort bin ich dankbar.
mfg
Ernst Dunkel
Private Sub worksheet_change(ByVal Target As Excel.Range)
Select Case Range("B147").Value
Case Is <> ""
ActiveSheet.PageSetup.PrintArea = "$B$1:$O$213"
Case Else
ActiveSheet.PageSetup.PrintArea = "$B$1:$O$141"
End Select
Select Case Range("B76").Value
Case Is <> ""
ActiveSheet.PageSetup.PrintArea = "$B$1:$OG$141"
Case Else
ActiveSheet.PageSetup.PrintArea = "$B$1:$O$71"
End Select
End Sub