Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Auslesen der Arbeitsmappeneigenschaften

Gruppe

Arbeitsmappe

Problem

Wie kann ich die eingbauten Dokumenten-Eigenschaften der Arbeitsmappe über VBA auslesen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Eigenschaften()
   Dim iCounter As Integer
   On Error Resume Next
   For iCounter = 1 To 30
      Cells(iCounter, 1).Value = _
         ThisWorkbook.BuiltinDocumentProperties(iCounter).Name
      Cells(iCounter, 2).Value = _
         ThisWorkbook.BuiltinDocumentProperties(iCounter)
      If Err > 0 Then
         Err.Clear
         Cells(iCounter, 2).Value = "k.A."
      End If
   Next iCounter
   On Error GoTo 0
   Columns.AutoFit
   Columns("A:B").HorizontalAlignment = xlLeft
End Sub