Druckbereich bei Workbook_open
16.12.2002 07:18:32
Michael Friedrich
Private Sub Workbook_Open()
Dim rng As Range
Dim vCol As Variant
Set Mappe = Workbooks("CP-Bunker.xls")
Set CHA = Mappe.Worksheets("Charge aktuell")
Set BU = Mappe.Worksheets("bunker")
CHA.Activate
Range("A1").Select
Worksheets("Charge aktuell").Unprotect Password:="27823142782"
Set rng = Range(Cells(29, 1), Cells(Cells(29, 3).End(xlDown).Row, 21))
ActiveSheet.PageSetup.PrintArea = rng.Address
vCol = 3
Set rng = Cells(Rows.Count, CInt(vCol)).End(xlUp)
Range(rng.Address(False, False)).Select
Worksheets("Charge aktuell").Protect Password:="27823142782"
End Sub