Gruppe
Ereignis
Bereich
Open
Thema
Beim Öffnen zweites Fenster erzeugen und anordnen
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