www.Russ-Jesteburg.de > Excel > VBA > Datei

Dokumenteigenschaften (benutzerdefiniert) auslesen:

' Alle benutzerdefinierten Dokumenteigenschaften in Tabelle ausgeben
Sub Dokumenteigenschaften_Custom_ausgeben()
    Dim Nummer As Integer
    For Nummer = 1 To ActiveWorkbook.CustomDocumentProperties.count
        Cells(Nummer, 1).Value = _
            ActiveWorkbook.CustomDocumentProperties(Nummer).Name
        Cells(Nummer, 2).Value = _
            ActiveWorkbook.CustomDocumentProperties(Nummer).Value
    Next
End Sub

Dieser Tipp ist vom 27.10.2004