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?
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