Versionsnummer in Fusszeile / Zellbereich

[Tobias Gollwitzer]

Guten Morgen,

in dem Menüpunkt "Datei" - "Eigenschaften" gibt es die Registerkarte
"Version". Dort sieht man, wie oft die aktuelle Mappe bearbeitet wurde.
Kann man diese "Information" in die Fusszeile packen bzw. in eine Zelle X?
--
Danke
Tobias Gollwitzer
*****************
Small Business Server 2003
MS Office 2003
Client mit Win XP SP2 u. W2k SP4

[Herbert Taferner]

Hallo Tobias,

in dem Menüpunkt "Datei" - "Eigenschaften" gibt es die Registerkarte
"Version". Dort sieht man, wie oft die aktuelle Mappe bearbeitet wurde.
Kann man diese "Information" in die Fusszeile packen bzw. in eine Zelle X?

damit kannst du alle auslesen

Sub Eigenschaften()
Dim r, p
On Error Resume Next
r = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook _
.BuiltinDocumentProperties
Cells(r, 1).Value = p.Name
Cells(r, 2).Value = p.Value

r = r + 1
Next

End Sub

-------------------------

und den den du benötigst dann in eine Zelle oder die Fußzeile einfügen

z. B.

Range("A1").Value = ActiveWorkbook _
.BuiltinDocumentProperties(8)

mfg Herbert