Titelleiste in Excel ändern - Fehler im Code!
05.02.2004 17:04:38
Torsten K.
folgendes interessantes Feature habe ich heute bei "soendi" gesehen:
Private Sub Workbook_Activate()
Application.Caption = "Das ersetzt 'Excel'"
ActiveWindow.Caption = "Das ersetzt den Dateinamen!!"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim AppCap As Integer
Dim ActWinCap As Integer
Application.Caption = AppCap
ActiveWindow.Caption = ActWinCap
End Sub
Leider gibt's einen Fehler beim Zurücksetzen der Application-Bezeichnung "Excel": Nach dem Schließen meiner Testdatei zeigt mir Excel nicht das Wort "Excel" in der Titelleiste, sondern die 0 (Null).
Könnt Ihr mir den Fehler aufzeigen?
Vielen Dank im voraus.
Gruß
Torsten