Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Abfrage möglich?

VBA-Abfrage möglich?
14.07.2003 11:08:49
Franz W.
Hallo Fachleute,
ist es möglich per VBA abzufragen, ob der Druckbereich sich noch auf eine (DIN-A4-)Seite beschränkt, oder ob er bereits 2 Seiten umfasst? Wäre für Eure Hilfe sehr dankbar.
Ein herzliches Dankeschön im Voraus
Grüße
Franz

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Abfrage möglich?
14.07.2003 12:07:44
Franz W.
Toll Ihr beiden, vielen Dank, das hilft mir schon weiter.
Danke und Grüße
Franz

AW: VBA-Abfrage möglich?
14.07.2003 11:50:40
RAnton
Hallo Franz,
so gehts
Dim pB As HPageBreaks
Dim intPages As Integer
ActiveWindow.View = xlPageBreakPreview
Set pB = .HPageBreaks
intPages = pB.Count
in intPages steht die Anzahl der Seitenumbrüche.
Gruß
RAnton

AW: VBA-Abfrage möglich?
14.07.2003 11:48:02
Knut
Mal als Ansatz für eigene Bastelei:
Option Explicit

Sub testA4()
If ActiveSheet.HPageBreaks.Count = 0 And _
ActiveSheet.VPageBreaks.Count = 0 Then
MsgBox "Eine Seite"
Else
MsgBox "Mehr als eine Seite "
End If
End Sub

Knut

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige