Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: Worksheet-Objekt

Workbooks-Auflistung (Workbook-Objekt)
Worksheets-Auflistung (Worksheet-Objekt)
Mehrere Objekte

Stellt ein Tabellenblatt dar. Das Worksheet-Objekt ist ein Element der Worksheets-Auflistung. Die Worksheets-Auflistung enthält alle Worksheet-Objekte einer Arbeitsmappe.

Verwenden des Worksheet-Objekts

In diesem Abschnitt werden folgende Eigenschaften zur Rückgabe eines Worksheet-Objekts beschrieben:

  • Worksheets-Eigenschaft

  • ActiveSheet-Eigenschaft

Worksheets-Eigenschaft

Verwenden Sie Worksheets(Index), wobei Index die Indexnummer oder der Name des Tabellenblatts ist, um ein einzelnes Worksheet-Objekt zurückzugeben. Im folgenden Beispiel wird das erste Tabellenblatt der aktiven Arbeitsmappe ausgeblendet.

Worksheets(1).Visible = False

Die Tabellenblatt-Indexnummer gibt die Position des Tabellenblatts in der Registerleiste der Arbeitsmappe an. Worksheets(1) ist das erste Tabellenblatt der Arbeitsmappe (von links), Worksheets(Worksheets.Count) das letzte. Alle Tabellenblätter sind in der Nummerierung enthalten, auch dann, wenn sie ausgeblendet sind.

Der Tabellenblattname steht auf dem Register für das Tabellenblatt. Verwenden Sie die Name-Eigenschaft, um den Tabellenblattnamen festzulegen oder zurückzugeben. Im folgenden Beispiel werden die Szenarios im Tabellenblatt Sheet1 geschützt.

Worksheets("sheet1").Protect password:="drowssap", scenarios:=True

Das Worksheet-Objekt ist auch ein Element der Sheets-Auflistung. Die Sheets-Auflistung enthält alle Blätter der Arbeitsmappe (Diagrammblätter wie auch Tabellenblätter).

ActiveSheet-Eigenschaft

Auf das aktive Blatt können Sie sich mit der ActiveSheet-Eigenschaft beziehen. Im folgenden Beispiel wird die Activate-Methode verwendet, um das Tabellenblatt Sheet1 zu aktivieren, die Seitenausrichtung auf Querformat zu setzen und das Tabellenblatt zu drucken.

Worksheets("sheet1").Activate
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintOut