Anzeige
Archiv - Navigation
1524to1528
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
Inhaltsverzeichnis

Beim File öffnen Sheet ->Bildschirmgröße anpassen

Beim File öffnen Sheet ->Bildschirmgröße anpassen
25.11.2016 10:09:56
ChrisW
Hallo Leute,
was muss ich in VBA eimntragen, damit beim öffnen eines Workbooks das Blatt "sheet2" auf dem Screen erscheint, und zwar in der Größe wie der Druckbereich eingestellt ist.
Die Anzeige soll auf jedem Rechner/Laptop, egal welche Einstellung und Bildschirmgröße vorhanden ist, den Printbereich als Bildschirm füllend anzeigen, also den Zoom so anpassen, das alles im Druckbereich angezeigt wird.
Dass ich in die folgende VBA "ThisWorkbook" mein Makro schreiben muss, ist mir bekannt, aber dann...
Private Sub Workbook_Open()
End Sub

Vielen Dank
Lieb Grüße
Chris

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beim File öffnen Sheet ->Bildschirmgröße anpassen
25.11.2016 11:02:18
KlausF
Hallo Chris,
der Druckbereich ist ja immer die UsedRange.
Probier mal:
Private Sub Workbook_Open()
Worksheets("Sheet2").Select
Dim lngRow As Long
Dim iCol As Integer
Application.ScreenUpdating = False
With ActiveSheet
lngRow = .Cells.Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row
iCol = Cells.Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByColumns).Column
.Range(.Cells(1, 1), .Cells(lngRow, iCol)).Select
End With
ActiveWindow.Zoom = True
Application.Goto Reference:=Range("A1"), Scroll:=True
End Sub
Wenn Du eine festen Druckbereich hast kannst Du Dir lngRow und iCol sparen
und den Bereich direkt ansprechen z.B:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Worksheets("Sheet2").Select
ActiveSheet.Range("A1:F25").Select
ActiveWindow.Zoom = True
Application.Goto Reference:=Range("A1"), Scroll:=True
End Sub

Gruß
Klaus
Anzeige
Korrektur
25.11.2016 11:05:46
KlausF
In einer Zeile fehlt noch ein Punkt vor Cells:
iCol = .Cells.Find(What:="*", _
Gruß
Klaus
Danke, genau so geht's (OT)
30.11.2016 10:46:00
ChrisW
Danke, genau so geht's (OT)

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige