Die Caption-Eigenschaft in VBA

Lesezugriffe auf das Excel -Modell

Die Beschriftung des aktuellen Fensters ist als qualifizierter Name verfügbar. Dabei ist »Excel« eine Bibliothek, welche ein Verzeichnis »Applikation« enthält, das seinerseits ein Verzeichnis »ActiveWindow« enthält, das seinerseits einen Eintrag »Caption« enthält. Dieser letztere Eintrag steht für einen Speicherplatz, welcher die aktuelle Beschriftung des aktiven Fensters enthält.

Direktbereich

? Excel.Application.ActiveWindow.Caption
Mappe1
Set x = Excel.Application
? x.ActiveWindow.Caption
? TypeName( x )
? TypeName( Excel.Application )

Das Verzeichnis »Excel.Application« enthält Informationen zum laufenden Excel-Prozeß. Das Verzeichnis »Excel.Application.ActiveWindow« enthält Informationen zum vorderen („aktiven“) Fenster des laufenden Excel-Programms.

All diese Verzeichnisse aus der Excel-Bibliothek zusammen enthalten diverse Informationen zum laufenden Excel-Prozeß und werden hier auch als Excel-Modell  bezeichnet.

Die Eingabe kann etwas abgekürzt werden, solange es keine gleichnamigen Einträge gibt, mit denen Verwechslungen möglich sind. Dies ist also nicht immer möglich. Daher ist es im Zweifelsfall sicherer, den Namen immer vollständig qualifiziert zu schreiben.

Direktbereich

? Application.ActiveWindow.Caption
Mappe1
? ActiveWindow.Caption
Mappe1

Ohne Angabe des Verzeichnisses »ActiveWindow« erhalten wir die gewünschte Information aber nicht mehr.

Direktbereich

? Caption

Die vorhandenen Verzeichnisse können über den Objektkatalog  in der IDE erkundet werden.

ActiveWindow ist eine „Element von Global“, Caption aber nicht. Daher ist ActiveWindow auch ohne Qualifikation bekannt.

Außerdem gibt es auch Handbuchseiten  zum Excel-Modell, in denen die Bedeutung der Verzeichnisse und ihrer Einträge erklärt wird. (Siehe Web.)

Direktbereich

Let ActiveWindow.Caption = "Raum 500" 
Let titel = ActiveWindow.Caption '  - Zwischenspeichern des Originalwerts 
Let ActiveWindow.Caption = "Hallo!" 
Let ActiveWindow.Caption = titel

Direktbereich

Let ActiveWindow.Caption = "Unterrichtsraum"
Let titel = ActiveWindow.Caption 
  Let ActiveWindow.Caption = "Hallo!"
  Let ActiveWindow.Caption = titel
ActiveWindow.Caption = "Reinickendorf"