Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Beim Öffnen zweites Fenster erzeugen und anordnen

Gruppe

Open

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