Excel VBA - Worksheeteigenschaften

Details

Kategorie: Excel Code Array

Veröffentlicht: Freitag, 21. Dezember 2018 09:53

Geschrieben von Marcus Rose

Zugriffe: 1590

Worksheeteigenschaften (BuiltinDocumentProperties) auslesen

Dieses Makro habe ich hier als einen Array hinterlegt, obwohl man die Dokumenteigenschaften auch ohne diesen auslesen kann. Den Array habe ich nur verwendet, damit Ihr vielleicht erkennen könnt, wie dieser angewendet wird. Euch werden hier alle Eigenschaften, eines Tabellenblattes, angezeigt.

Option Explicit

Sub arrai()
    Dim bprop(30, 2) As Variant
    Dim i As Integer
    On Error Resume Next
    ActiveSheet.Range("A1:C1").Value = Array("Variable", "Name", "Anzeige")
    For i = 1 To 30
        Cells(i + 1, 1) = i
        bprop(i, 1) = ActiveWorkbook.BuiltinDocumentProperties(i).Name
        Cells(i + 1, 2) = bprop(i, 1)
        bprop(i, 2) = ActiveWorkbook.BuiltinDocumentProperties(i).Value
        Cells(i + 1, 3) = bprop(i, 2)
    Next
    ActiveSheet.Columns("A:D").AutoFit
End Sub

Einige Einstellungen werden aus Datei - Eigenschaften ausgelesen. Somit könnt Ihr da natürlich auch diese Einstellungen setzen.

Das man hier aber auch ohne einen Array arbeiten könnte zeigt Euch folgendes Makro:

option explicit

Sub arrai2()
    Dim i As Integer
    On Error Resume Next
    ActiveSheet.Range("A1") = "Variable"
    ActiveSheet.Range("B1") = "Name"
    ActiveSheet.Range("C1") = "Anzeige"
    For i = 1 To 30
        Cells(i + 1, 1) = i
        Cells(i + 1, 2) = ActiveWorkbook.BuiltinDocumentProperties(i).Name
        Cells(i + 1, 3) = ActiveWorkbook.BuiltinDocumentProperties(i).Value
    Next
    ActiveSheet.Columns("A:D").AutoFit
End Sub

• Weiter