Excel und VBA: Formeln, Programmierung, Lösungen

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