Feld "Manager" in VB ansprechen

[Beck, Alwin]

Hallo,

wie spreche ich das Feld "Manager" unter den "Eigenschaften"
(Datei/Eigenschaften)
an - wie z.B.

ActiveWorkbook.Title = "Mein Titel für das Dokument"

Danke

MfG
A.Beck

[Dr. Eckehard Pfeifer]

Hallo, erst testen, dann reagieren:

Dim p As DocumentProperty
For Each p In ThisWorkbook.BuiltinDocumentProperties
Debug.Print p.Name
Next

MsgBox ThisWorkbook.BuiltinDocumentProperties("Manager").Value

[Beck, Alwin]

Post by Dr. Eckehard Pfeifer
Dim p As DocumentProperty
For Each p In ThisWorkbook.BuiltinDocumentProperties
Debug.Print p.Name
Next
MsgBox ThisWorkbook.BuiltinDocumentProperties("Manager").Value
--
MfG EP
Entwicklung - Beratung - Training (www.dr-e-pfeifer.net)
XL-Funktionsverzeichnis (ISBN: 3860636898)
MS Office 2003 - Das Entwicklerbuch (ISBN 3-86063-688-X)

Hallo,
ja habe ich verstanden und funktioniert. Aber wenn ich das nun mit
Firma so
mache funktioniert das nicht - kann das sein ?
ThisWorkbook.BuiltinDocumentProperties("Firma").Value

Danke
A. Beck

[Dr. Eckehard Pfeifer]

Hallo, leider hast Du meinen Hinweis, erst zu testen, nicht beachtet
:-):

Dim p As DocumentProperty
For Each p In ThisWorkbook.BuiltinDocumentProperties
Debug.Print p.Name
Next

Und da siehst Du im Debugfenster, dass es nicht Firma, sondern Company
heisst.
Es ist wie im Strassenverkehr - Augen auf :-)

[Beck, Alwin]

Post by Dr. Eckehard Pfeifer
Hallo, leider hast Du meinen Hinweis, erst zu testen, nicht beachtet
Dim p As DocumentProperty
For Each p In ThisWorkbook.BuiltinDocumentProperties
Debug.Print p.Name
Next
Und da siehst Du im Debugfenster, dass es nicht Firma, sondern
Company
heisst.
Es ist wie im Strassenverkehr - Augen auf :-)
--
MfG EP
Entwicklung - Beratung - Training (www.dr-e-pfeifer.net)
XL-Funktionsverzeichnis (ISBN: 3860636898)
MS Office 2003 - Das Entwicklerbuch (ISBN 3-86063-688-X)

Sorry - hatte schon getestet habe aber Company falsch geschrieben