VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Auslesen der Arbeitsmappeneigenschaften

Gruppe

Allgemein

Bereich

Arbeitsmappe

Thema

Auslesen der Arbeitsmappeneigenschaften

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Arbeitsmappe