Versionsnummer in Fusszeile / Zellbereich

30/11/2007 - 09:38 von Tobias Gollwitzer | Report spam
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
 

Lesen sie die antworten

#1 Herbert Taferner
30/11/2007 - 11:57 | Warnen spam
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

Ähnliche fragen