Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
192to196
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
192to196
192to196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Druckbereich bei Workbook_open

Druckbereich bei Workbook_open
16.12.2002 07:18:32
Michael Friedrich
Mit folgendem Code möchte ich eigentlich beim öffnen der Datei den Druckbereich festlegen un da die TAbelle sehr lang ist zum letzten Eintrag springen. Das funktioniert komischerweise mit dem nachfolgenden Code nur wenn die Automatische Berechnung in den Excel Optionen nicht aktiviert ist. Habe keinen Schimmer warum das so ist:
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Druckbereich bei Workbook_open
16.12.2002 13:40:19
andre
hallo michael,
kommt irgendein fehler? bei mir läufts.
gruss andre
Re: Druckbereich bei Workbook_open
16.12.2002 13:55:30
Michael Friedrich
Nein. Alles andere läuft wunderbar. Nur der Druckbereich und der Sprung in die letzte Zeile wird beim Öffnen der Datei nicht ausgeführt wenn die Automatische Berechnung aktiviert ist. Ich muß dazu sagen das die Tabelle ca. 2500 Datensätze mit Bereckneten Werten enthält. D.H. beim Öffnen steht der Rechner ca. 50 Sekunden im Status "wird berechnet". Vielleicht hängt es damit zusammen.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige