1: 2: 3: 4:
Private VorWorkbook_Open () Application.Caption = „Anwendungs-Name“ Application.ThisWorkbook.Windows (1).Caption = „Ihr Untertitel“ Enden-Unterseeboot
1: 2: 3:
Privates VorWorkbook_SheetActivate (ByVal SH als Gegenstand) Application.ThisWorkbook.Windows (1).Caption = Sh.Name Enden-Unterseeboot