Klasse ListObjects (Excel VBA)

Eine Auflistung aller ListObject -Objekte in einem Arbeitsblatt. Um eine ListObjects -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise


Dim los as ListObjects
Set los = ActiveSheet.ListObjects

For Each

Hier ist ein Beispiel für die Verarbeitung der ListObjects -Elemente in einer Sammlung


Dim lstobj As ListObject
For Each lstobj In Application.ListObjects
	
Next lstobj

Add

Erstellt ein neues Listenobjekt.

Wenn die Liste über Kopfzeilen verfügt, wird die erste Zellenzeile in Text umgewandelt, wenn sie nicht bereits auf Text festgelegt ist.

Add (SourceType, Source, LinkSource, XlListObjectHasHeaders, Destination, TableStyleName)


Dim lstobj As ListObject
Set lstobj = ActiveSheet.ListObjects.Add

Arguments

Optional arguments

Die folgenden Argumente sind optional

SourceType (XlListObjectSourceType) - Gibt die Quellenart für die Abfrage an.


Möglichen Werte sind

xlSrcExternal Externe Datenquelle (Microsoft SharePoint Foundation-Website).
xlSrcModel PowerPivot-Modell
xlSrcQuery Abfrage
xlSrcRange Bereich
xlSrcXml XML

Source (Range) - Bei sourceType = xlSrcRange: ein Range -Objekt, das die Datenquelle darstellt.

LinkSource (Boolean) - Zeigt an, ob eine externe Datenquelle mit dem Objekt ListObject verknüpft werden soll.

XlListObjectHasHeaders (XlYesNoGuess) - Eine XlYesNoGuess -Konstante, die angibt, ob die importierten Datenspalten Beschriftungen aufweisen.

Mögliche Rückgabewerte sind xlGuess - In Excel wird ermittelt, ob eine Überschrift vorhanden ist, und wenn ja, wo sich diese befindet, xlNo - Standardwert, xlYes - Der gesamte Bereich soll nicht sortiert werden.

Destination - XlListObjectSourceType


Möglichen Werte sind

xlSrcExternal Externe Datenquelle (Microsoft SharePoint Foundation-Website).
xlSrcModel PowerPivot-Modell
xlSrcQuery Abfrage
xlSrcRange Bereich
xlSrcXml XML

TableStyleName (String) - Der Name eines TableStyles; zum Beispiel "TableStyleLight1".

Count

Gibt einen Integer-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.


Dim lngCount As Long
lngCount = ActiveSheet.ListObjects.Count

Item

Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Item (Index)

Index: Der Name oder die Indexnummer des Objekts.


Dim lstobjItem As ListObject
Set lstobjItem = ActiveSheet.ListObjects(Index:=1)