HERBERS Excel-Forum - die Beispiele

Thema: Beim Öffnen zweites Fenster erzeugen und anordnen

Home

Gruppe

Ereignis

Problem

Wie kann ich beim Öffnen einer Arbeitsmappe ein zweites Fenster zur 2. Tabelle der Arbeitsmappe öffnen, beiden Fenster in einer bestimmten Größe anzeigen lassen und beim Schließen der Arbeitsmappe den alten Zustand wiederherstellen?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
ClassModule: DieseArbeitsmappe

Public gvarWndState

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   On Error Resume Next
   Windows(Windows.Count).Close
   ActiveWindow.WindowState = gvarWndState
   On Error GoTo 0
End Sub

Private Sub Workbook_Open()
   Dim wndFirst As Window
   gvarWndState = ActiveWindow.WindowState
   Set wndFirst = ActiveWindow
   With ActiveWindow
      .WindowState = xlNormal
      .Top = 50
      .Left = 50
      .Width = 200
      .Height = 200
   End With
   ActiveWindow.NewWindow
   With ActiveWindow
      .WindowState = xlNormal
      .Top = 50
      .Left = 260
      .Width = 200
      .Height = 200
   End With
   Worksheets("Tabelle2").Select
End Sub

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open

Msg mit 2 Ereignissen +Cancel Workbooks open
Ereignisprozedur Excel-Tabelle in OpenOrg
getopenfilename mit Teil der Dateiname Makro für ereignisabh. Druck verschiedener Seiten
Benutzerdefinierte Funktion in Open Office UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden? GetOpenFilename Dateiname vorbelegen
xlDialogOpen anpassen Symbolleisten durchloopen: löschen & restore
Zeilen aus- einblenden als Ereignis? Welches Ereignis ist das richtige ??
Symbolleisten durchloopen und ausblenden Ereignis Arbeitsblatt sperren abfangen
Workbook open Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis xlDialogOpen bei Excel 2007 funzt nicht
komisches phänomän bei set xx open workbook Change-Ereignis in Combobox unterdrücken
Combobox Ereignis MS OFFICE - OPEN OFFICE
Userform, Ereignis deklarieren im Klassenmodul Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen Command Button Ereignis
Workbook Open Ereignis von Laufzeit-Checkbox
Wochenangabe bei WorkbookOpen change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern change-ereignis bei dynamisch erstellten Controls
Schaltfläche - Ereignis erst nach Bestätigung ausl Makro Workbook_Open läuft nicht
Objekt_Error - Ereignis in UserForm Problem mit OpenRecordset (Array)
bei OPEN macros vermeiden Workbook_open
change ereigniss auf userform. Click-Ereignis für Checlbox nicht ausführen?
windows.open und selection.change workbooks.open Fehlermeldung
Speichern einer Kopie durch Ereigniss Workbook_bef Reagieren auf Tastaturereignisse
Workbooks.OpenText - Datumsformat Ausnahmen für Exit-Ereignis
Probleme mit Workboos.Open