VBA-Lektion 3. Arbeiten mit Blättern (Worksheet)

Bei dieser Sammlung handelt es sich um einen Satz Blätter (Sheets) in einer Arbeitsmappe (Workbooks). Mal sehen, welche Aktionen wir auf Blättern durchführen können.

So zählen Sie die Anzahl der Blätter in einem Buch

Versuchen wir zunächst herauszufinden, wie viele Blätter unser Buch hat:

Sub Test() 'moonexcel.com.ua
	MsgBox (Str(Application.Workbooks.Item("Test.xls").Sheets.Count))
End Sub

Mit diesem Code haben wir eine Nachricht auf dem Bildschirm (MsgBox) aufgerufen, die die Anzahl der Blätter (Sheets.Count) in der Arbeitsmappe (Workbooks) „Test.xls“ anzeigt.

Ein Blatt enthält nicht nur Zellen, sondern auch Diagramme. Ebenso wie das Berechnungsblatt wird das Diagramm in die Blattzählung einbezogen.

So fügen Sie einem Buch ein Blatt hinzu

In der Sammlung von Blättern ist es auch möglich, eigene Blätter hinzuzufügen, hierfür gibt es eine Add-Methode. Diese Methode hat 4 Parameter Add(Before, After, Count, Type). Alle diese Parameter sind optional. Die ersten beiden sind für die Einfügungsstelle des Blattes verantwortlich. Als nächstes die Anzahl der einzufügenden Blätter Count und der Blatttyp Type. Typen können beispielsweise xlWorkSheet für eine Tabelle und xlChart für ein Diagramm sein. Wenn der Speicherort nicht angegeben ist, wird das Blatt relativ zum aktuellen Blatt eingefügt.

Sub Test() 'moonexcel.com.ua
    Sheets.Add After:=Worksheets("Sheet3"), Count:=4
End Sub

Auf diese Weise haben wir nach dem Blatt „Sheet3“ 4 Blätter (Count:=4) eingefügt. Sie können auch ganz am Ende des Buches ein Blatt einfügen:

Sub Test() 'moonexcel.com.ua
	Worksheets.Add
	ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count)
End Sub

So verstecken Sie ein Blatt

Auf Wunsch können einige Buchstaben ausgeblendet werden. Dies ist nützlich, wenn Sie Konstanten oder Berechnungen haben, die Sie nicht in Buchstabenform auf dem Bildschirm sehen möchten. Hierzu können Sie die Methode Visible verwenden. Durch Festlegen dieser Eigenschaft in TRUE oder FALSE können Sie das erforderliche Blatt entfernen oder anzeigen.

Sub Test() 'moonexcel.com.ua
	ActiveWorkbook.Sheets("Sheet3").Visible = False
End Sub