Titel und Thema

Bild

Betrifft: Titel und Thema
von: König
Geschrieben am: 11.03.2005 11:24:13
Hi,
Ich hab da ein kleines Problem:
Wie zum Kuckuck bringe ich den Text aus den Eigenschaften (Titel und Thema) in eine Zelle hinein. Beim Word geht's ja auch.
Danke für eure Hilfe.

Bild

Betrifft: AW: Titel und Thema
von: klausk
Geschrieben am: 11.03.2005 11:37:47
Hallo King,
musst Du halt noch die Zellen anpassen, wo die Daten rein sollen
Sub Eigenschaften()
Dim rw, p
On Error Resume Next
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
Cells(rw, 4).Value = p.Value
rw = rw + 1
Next
Gruß
KlausK
Bild

Betrifft: AW: Titel und Thema
von: König
Geschrieben am: 11.03.2005 12:53:06
...danke für die Antwort.
...so hab ich das allerdings nicht gemeint.
Es soll der Wert, der bei den Eigenschaften, nämlich Titel und Thema, mit einer Formel in eine Zelle übernommen werden.
In etwa so: =titel() oder =thema()
So etwas muss es doch geben, oder nicht?
Bild

Betrifft: AW: Titel und Thema
von: ransi
Geschrieben am: 11.03.2005 14:11:53
hallo könig
versuchs mal mit einer benutzerdefinierten fuction:

Function Eigenschaften(ByVal welche As Integer) As String
'möglich sind zahlen von 1 bis 30
    '1   =   Title
    '2   =   Subject
    '3   =   Author
    '4   =   Keywords
    '5   =   Comments
    '6   =   Template
    '7   =   Last author
    '8   =   Revision number
    '9   =   Application name
    '10  =   Last print date
    '11  =   Creation date
    '12  =   Last save time
    '13  =   Total editing time
    '14  =   Number of pages
    '15  =   Number of words
    '16  =   Number of characters
    '17  =   Security
    '18  =   Category
    '19  =   Format
    '20  =   Manager
    '21  =   Company
    '22  =   Number of bytes
    '23  =   Number of lines
    '24  =   Number of paragraphs
    '25  =   Number of slides
    '26  =   Number of notes
    '27  =   Number of hidden Slides
    '28  =   Number of multimedia clips
    '29  =   Hyperlink base
    '30  =   Number of characters (with spaces)
Application.Volatile
Eigenschaften = ActiveWorkbook.BuiltinDocumentProperties(welche).Value
End Function

ransi
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Datum-Format in Systemsteuerung ändern"