VBA - PROGRAMMIERUNG -  

AUTOMATISCHE PROCEDUREN

 

' Ereignisse
Option Explicit

' Hinweis: Seit Excel 97 können statt Auto-Prozeduren auch
' Workbook_Open- und _Close-Ereignisprozeduren verwendet werden
' (im Codefenster »Diese Arbeitsmappe«). Die Auto-Prozedur verkleinert
' alle geöffneten Fenster anderer Arbeitsmappen in Icons

Sub Auto_Open()
Dim Table_No As Variant
MsgBox "Die Auto_Open-Prozedur wird ausgeführt."
For Each Table_No In Windows
    If Table_No.Parent.Name <> ActiveWorkbook.Name And Table_No.Visible Then
        Table_No.WindowState = xlMinimized
    End If
Next f
End Sub

Sub Auto_Close() ' automatische Routine beim Schliessen der Datei
MsgBox "Die Auto_Close-Prozedur wird ausgeführt."
End Sub