Excel 97 Dokumenteigenschaften

Hi alle zusammen,
kann ich bei Excel ähnlich wie bei Word die Dokumenteigenschaften verwenden?
Ich habe leider in der Hilfe nichts dazu gefunden, außer, das man nach DokuEigenschaften suchen kann

Danke im Vorraus
Norbert Laas

Hallo

In Excel geht das leider nur über ein Makro. Darin kann man über das DocumentProperty Objekt auf die Dokumenteigenschaften zugreifen. Also eine eigene Funktion schreiben, die die gewünschte Eigenschaft zurückgibt.

Viel Spaß
Thomas

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Hallo Norbert

Eine solche Funktion ist nicht schwierig zu schreiben.

Kopieren Sie den nachfolgenden Code im VBA-Editor in ein leeres Module.

Zurück auf dem Tabellenblatt geben Sie in eine beliebige Zelle die Formel =DokEigenschft(1) ein.

Gruss
S. Widmer

Public Function DokEigenschaft(ID As Integer)
If ID 30 Then
DokEigenschaft = „Ungültig!“
Exit Function
End If
DokEigenschaft = ActiveWorkbook.BuiltinDocumentProperties(ID).Value
If DokEigenschaft = „“ Then DokEigenschaft = „“
End Function

Sub IDBestimment()
For i = 1 To 30
Cells(i, 1) = i
Cells(i, 2) = ActiveWorkbook.BuiltinDocumentProperties(i).Name
Next i
End Sub