Suche…


Einführung

Dieses Thema behandelt das Arbeiten mit Tabellen in VBA und setzt Kenntnisse in Excel-Tabellen voraus. In VBA bzw. Excel-Objektmodell werden Tabellen als ListObjects bezeichnet. Die am häufigsten verwendeten Eigenschaften eines ListObjects sind ListRow (s), ListColumn (s), DataBodyRange, Range und HeaderRowRange.

Instanziieren eines ListObjects

Dim lo as ListObject
Dim MyRange as Range

Set lo = Sheet1.ListObjects(1)

'or

Set lo = Sheet1.ListObjects("Table1")

'or

Set lo = MyRange.ListObject

Mit ListRows / ListColumns arbeiten

Dim lo as ListObject
Dim lr as ListRow
Dim lc as ListColumn

Set lr = lo.ListRows.Add
Set lr = lo.ListRows(5)

For Each lr in lo.ListRows
    lr.Range.ClearContents
    lr.Range(1, lo.ListColumns("Some Column").Index).Value = 8
Next

Set lc = lo.ListColumns.Add
Set lc = lo.ListColumns(4)
Set lc = lo.ListColumns("Header 3")

For Each lc in lo.ListColumns
    lc.DataBodyRange.ClearContents   'DataBodyRange excludes the header row
    lc.Range(1,1).Value = "New Header Name"    'Range includes the header row
Next

Konvertieren einer Excel-Tabelle in einen normalen Bereich

Dim lo as ListObject

Set lo = Sheet1.ListObjects("Table1")
lo.Unlist


Modified text is an extract of the original Stack Overflow Documentation
Lizenziert unter CC BY-SA 3.0
Nicht angeschlossen an Stack Overflow