Application.ActiveSheet-Eigenschaft (Excel)

Gibt ein Objekt zurück, das das aktuelle Blatt (das oberste Blatt) in der aktiven oder angegebenen Arbeitsmappe oder im angegebenen Fenster darstellt. Gibt nichts zurück, wenn kein Blatt aktiv ist.

Syntax

expression.ActiveSheet

expression Eine Variable, die ein Application-Objekt darstellt.

Bemerkungen

Wenn Sie keinen Objektbezeichner angeben, gibt diese Eigenschaft das aktive Blatt in der aktiven Arbeitsmappe zurück.

Wenn eine Arbeitsmappe in mehreren Fenstern angezeigt wird, kann die ActiveSheet-Eigenschaft in verschiedenen Fenstern unterschiedliche Werte aufweisen.

Beispiel

In diesem Beispiel wird der Name des aktiven Blatts angezeigt.

MsgBox "The name of the active sheet is " & ActiveSheet.Name

In diesem Beispiel wird eine Druckvorschau des aktiven Blatts erstellt, wobei sich die Seitennummer auf jeder Seite oben in der Spalte B befindet.

Sub PrintSheets()

   'Set up your variables.
   Dim iRow As Integer, iRowL As Integer, iPage As Integer
   'Find the last row that contains data.
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   
   'Define the print area as the range containing all the data in the first two columns of the current worksheet.
   ActiveSheet.PageSetup.PrintArea = Range("A1:B" & iRowL).Address
   
   'Select all the rows containing data.
   Rows(iRowL).Select
   
   'display the automatic page breaks
   ActiveSheet.DisplayAutomaticPageBreaks = True
   Range("B1").Value = "Page 1"
   
   'After each page break, go to the next cell in column B and write out the page number.
   For iPage = 1 To ActiveSheet.HPageBreaks.Count
      ActiveSheet.HPageBreaks(iPage) _
         .Location.Offset(0, 1).Value = "Page " & iPage + 1
   Next iPage
   
   'Show the print preview, and afterwards remove the page numbers from column B.
   ActiveSheet.PrintPreview
   Columns("B").ClearContents
   Range("A1").Select
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.