Application.Caption -
13.02.2004 09:22:33
ray
Nachfolgendes Script geht aber nicht ganz, da nach wiederherstellen in der Titelleiste der Dateiname doppelt steht.
Seltsamerweise ergibt sich aus
MsgBox "" & Application.Caption die Ausgabe "MS Excel - Dateiname"
Nachfolgendes Script ergibt dann: "MS Excel - Dateiname - Dateiname"
Was mach ich nur falsch....
Gruß aus Hamburg, ist kalt...
Ray
Private Sub BScls2()
MsgBox "orgi weg"
AppCap = Application.Caption
ActWinCap = ActiveWindow.Caption
Application.Caption = "ExcelNEU"
ActiveWindow.Caption = "DateinameNeu"
MsgBox "auf original ändern"
Application.Caption = AppCap
ActiveWindow.Caption = ActWinCap
End Sub
Anzeige