Anzahl der Druckseiten in einem Makro zählen

31. Dezember 2010
Martin Althaus Von Martin Althaus, Excel, Office ...

Wie Sie per VBA feststellen, wie viele Druckseiten eine Tabelle besitzt

Über die Funktion "Seitensicht" oder "Seitenumbruchvorschau" können Sie vor dem Ausdrucken feststellen, wie viele Druckseiten Ihre Tabelle umfasst. Aber wie fragen Sie diese Informationen in einem VBA-Makro ab?

Über die Objekte HPageBreaks und VPageBreaks greifen Sie in VBA auf die Seitenumbrüche in einer Tabelle zu. Indem Sie diese Objekte mit der Methode Count kombinieren, können Sie die Anzahl der Seitenumbrüche in horizontaler Richtung (HPageBreaks) und in vertikaler Richtung (VPageBreaks) ermitteln. Das folgende Makro zeigt, wie das geht:

Sub ZaehleSeiten()
 With ActiveSheet
 MsgBox .VPageBreaks.Count & " waagerechte Seitenwechsel " & vbLf & _
 .HPageBreaks.Count & " senkrechte Seitenwechsel "
 End With
End Sub

Nach dem Start zeigt das Makro in einem Fenster an, wie viele Seitenumbrüche in der aktiven Tabelle vorliegen. Die folgende Abbildung zeigt, wie dieses Fenster aussehen kann:

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

  • Excel Vorlagen zum Sofort-Download
  • Geprüfte Vorlagen zum Sofort-Einsatz
  • Gratis Makros & Add-Ins im Downloadcenter
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"