<< Click to Display Table of Contents >> Sheets (Sammlung)

Zugriffspfade:

▪Application à Workbooks à Item à Sheets

▪Application à ActiveWorkbook à Sheets

 1  Beschreibung

Die Sammlung Sheets enthält alle Arbeitsblätter (sheet = englisch für "Blatt") eines Dokuments. Die einzelnen Elemente dieser Sammlung sind vom Typ Sheet.

 2  Zugriff auf die Sammlung

Jedes geöffnete Dokument besitzt genau eine Instanz der Sheets-Sammlung. Diese wird über Workbook.Sheets angesprochen:

' Anzahl der Arbeitsblätter des aktiven Dokuments anzeigen

MsgBox pm.ActiveWorkbook.Sheets.Count

 3  Eigenschaften, Objekte, Sammlungen und Methoden

Eigenschaften:

▪Count R/O

 

Objekte:

▪Item → Sheet

▪Application → Application

▪Parent → Workbook

 

Methoden:

▪Add

Count (Eigenschaft, R/O)

Datentyp: Long

Liefert die Anzahl der Sheet-Objekte des Dokuments – in anderen Worten: die Anzahl der Arbeitsblätter des Dokuments.

Item (Zeiger auf Objekt)

Datentyp: Object

Liefert ein einzelnes Sheet-Objekt, also ein einzelnes Arbeitsblatt.

Welches Sheet-Objekt Sie erhalten, hängt von dem Parameter ab, den Sie an Item übergeben. Dies kann entweder der numerische Index oder der Name des gewünschten Arbeitsblatts sein:

' Zeige den Namen des ersten Arbeitsblatts

MsgBox pm.Application.ActiveWorkbook.Sheets.Item(1).Name

 

' Zeige den Namen des Arbeitsblatts mit dem Namen "Einnahmen"

MsgBox pm.Application.ActiveWorkbook.Sheets.Item("Einnahmen").Name

Application (Zeiger auf Objekt)

Liefert das Application-Objekt.

Parent (Zeiger auf Objekt)

Liefert das übergeordnete Objekt, also ein Objekt vom Typ Workbook.

Add (Methode)

Fügt dem Dokument ein neues leeres Arbeitsblatt hinzu und gibt das Sheet-Objekt zurück, das das neue Arbeitsblatt repräsentiert.

Syntax:

 Add [Name]

Parameter:

Rückgabetyp:

Beispiel:

Sub Main()

 Dim pm as Object

 Dim newDoc as Object

 Dim newSheet as Object

 

 Set pm = CreateObject("PlanMaker.Application")

 pm.Visible = True

 

 ' Ein Dokument hinzufügen

 Set newDoc = pm.Workbooks.Add

 

 ' Dem Dokument ein Arbeitsblatt hinzufügen

 Set newSheet = newDoc.Sheets.Add("MySheet")

 

 ' Namen des neuen Arbeitsblatts anzeigen

 MsgBox newSheet.Name

End Sub

Mit dem von Add zurückgegebenen Sheet können Sie arbeiten wie mit jedem anderen Arbeitsblatt. Sie können aber auch den Rückgabewert von Add ignorieren und sich das neue Arbeitsblatt über ActiveSheet holen.